B4J Question HOW TO ADD VALUES TABLEVIEW IN TEXTFIELD

[roonde]

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

 

[Erel]

1. Please use [code]code here...[/code] tags when posting code.
2. What is the purpose of this poll?
3. What is the question?