01.Private Sub datagrid_bill_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles datagrid_bill.CellClick
02. Dim i As Integer = datagrid_bill.CurrentRow.Index
03. Dim key As String = datagrid_bill.Item(5, i).Value
04. connect_open()
05. sql = "select claimout_proid, claimout_promodel, claimout_proname, claimout_procolor, claimout_prosn, claimout_probad, claimout_eqment, claimout_snout, claimout_innote, claimout_idfull from claimout where claimout_idfull='" & key & "'"
06. DA = New SqlDataAdapter(sql, cn)
07. DS = New DataSet
08. DA.Fill(DS, "table")
09.
10. datagrid_detels.DataSource = DS.Tables("table")
11. txt_custuid.Text = datagrid_bill.Item(1, i).Value
12. txt_custuname.Text = datagrid_bill.Item(2, i).Value
13. txt_custuaddress.Text = datagrid_bill.Item(3, i).Value
14. txt_custutransp.Text = datagrid_bill.Item(4, i).Value
15. txt_billid.Text = datagrid_bill.Item(5, i).Value
16. txt_datein.Text = datagrid_bill.Item(6, i).Value
17. txt_dateout.Text = datagrid_bill.Item(7, i).Value
18. txt_billtotals.Text = datagrid_bill.Item(8, i).Value
19. chang_detel_column()
20. lbl_counts.Text = datagrid_detels.Rows.Count
21.
22. lbl_dateto.Text = DateDiff(DateInterval.Hour, CDate("'" & txt_dateout.Text & "'"), CDate("'" & Date.Today & "'"))
23.
24. End Sub
Load balance : Server 04
