01.
Private
Sub
cboName_SelectedIndexChanged(sender
As
Object
, e
As
EventArgs)
Handles
cboName.SelectedIndexChanged
02.
Dim
CustID
As
Integer
= 0
03.
Dim
CustName
As
String
=
""
04.
Dim
dt
As
DataTable =
Nothing
05.
06.
dt = _QueryAsDataTable($
"SELECT CustID,custName FROM tblCustomer WHERE custName = '{cboName.Text}'"
) 'เป็นเมทตอท เอา sql เป็น datatable
07.
CustID = dt.Rows(0).Item(0)
08.
CustName = dt.Rows(0).Item(1)
09.
End
Sub