B4J Question HOW TO ADD VALUES TABLEVIEW IN TEXTFIELD

PLEASE DONT 0 COMMENT

  • [ASK] TableView

    Votes: 0 0.0%
  • ---

    Votes: 0 0.0%

  • Total voters
    0

roonde

New Member
MY BAD CODE


Sub tvbarang_SelectedRowChanged(Index As Int, Row() As Object)

'Dim barsql As Object = DBSetting.barsql.ExecQuerySingleResult("SELECT*FROM tbbarang where no='" & inno.Text & "'")

'inno.Text=getvalueat("no")
'injasa.Text=barsql.getvalueat("jasa")
'inbarang.Text=barsql.getvalueat("barang")
'inharga.Text=barsql.getvalueat("harga")
'btsimpan.Text="UPDATE"
'inno.Enabled=False

Dim idvalue As String
Dim countIt As Int
Dim barkur As String

barkur = DBSetting.barsql.ExecQuery("SELECT * FROM tbbarang where no= '" & newno & "'")
For i = 0 To tvbarang.Items.Size -1
If tvbarang.SelectCell(i,1) = "barkur" Then
inno.Text=
injasa.Text=barkur.getString("jasa")
inbarang.Text=barkur.getString("barang")
inharga.Text=barkur.getString("harga")
btsimpan.Text="UPDATE"
inno.Enabled=False

'For i = 0 To tv1.Items.Size -1
' If tv1.SelectCell(i,1) = "bill" Then
' tv1.Items.RemoveAt(i)
' End If
'Next

End Sub
 
Top