B4J Question HOW TO ADD VALUES TABLEVIEW IN TEXTFIELD

Discussion in 'B4J Questions' started by roonde, May 23, 2015.

?

PLEASE DONT 0 COMMENT

  1. [ASK] TableView

    0 vote(s)
    0.0%
  2. ---

    0 vote(s)
    0.0%
Multiple votes are allowed.
  1. roonde

    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
     
  2. Erel

    Erel Administrator Staff Member Licensed User

    1. Please use [code]code here...[/code] tags when posting code.
    2. What is the purpose of this poll?
    3. What is the question?
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice