Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
show1()
cls1()
Dim sql As String = "select * from staff "
Dim ds As DataSet
ds = clsdb.querydataset(sql)
With ComboBox2
.DisplayMember = "sname"
.ValueMember = "sid"
.DataSource = ds.Tables(0)
End With
ComboBox2.Text = "กรุณาเลือก"
show2()
cls2()
With ComboBox3
.Text = "กรุณาเลือก"
.DisplayMember = "sname"
.ValueMember = "sid"
.DataSource = ds.Tables(0)
End With
ComboBox3.SelectedText = "กรุณาเลือก"
End Sub