sql = "select * from ...............ฐานข้อมูล........"
Da = New SqlDataAdapter(sql, cn)
Dt = New DataTable
Da.Fill(Dt)
Dim dr As DataRow = Dt.NewRow
dr(0) = 0
dr(1) = "-----ระบุ-----"
Dt.Rows.InsertAt(dr, 0)
If Dt.Rows.Count > 0 Then
With =ชื่อ Combobox
.DataSource = Dt
.DisplayMember = "ข้อมูลของตารางที่จะดึง"
.ValueMember = "PK ของตารางที่จะดึง"
End With
Else
End If
sql = "select *from ตารางที่ต้องการ where ID ของแผนก= '" & CboProvince.SelectedValue combobox ของแผนก & "'"
Da = New SqlDataAdapter(sql, cn)
DtProan = New DataTable
Da.Fill(DtProan)
If DtProan.Rows.Count > 0 Then
With CboTheDistrict '---> combobox ที่จะแสดงชื่อพนักงาน
.DataSource = DtProan
.DisplayMember = "TheDistrictName"
.ValueMember = "TheDistrictID"
End With
Else
Exit Sub
End If
Load balance : Server 00
