ataGridView1.Enabled = False
Dim d_adap As SqlDataAdapter
Dim d_set As DataSet = New DataSet
'รวมจำนวนของวัคซีนเเต่ละชนิดที่มีในตาราง Vaccine โดยเอาเฉพาะวัคซีนที่มีสถานะพร้อมใช้มา
d_adap = New SqlDataAdapter("select sum(vaccine_quantity)as quantity ,vac_id , vac_name " & _
"from vaccine_type , vaccine " & _
"where vac_id = vac_No and vaccine_status = 'RD' and vaccine_quantity < '20' " & _
"group by vac_id , vac_name ", sqlConnection)
d_adap.Fill(d_set, "criteria_vaccine")
If d_set.Tables("criteria_vaccine").Rows.Count = 0 Then
Me.Close()
End If
Dim i As Integer
For i = 0 To d_set.Tables("criteria_vaccine").Rows.Count - 1
If d_set.Tables("criteria_vaccine").Rows(i)("quantity") < 20 Then
DataGridView1.DataSource = d_set.Tables("criteria_vaccine")
DataGridView1.Columns("vac_id").DisplayIndex = 0
DataGridView1.Columns("vac_name").DisplayIndex = 1
DataGridView1.Columns("quantity").DisplayIndex = 2
DataGridView1.Columns(0).Width = 40
DataGridView1.Columns(1).Visible = False
DataGridView1.Columns(2).Width = 180
End If
Next
'<--------------------- เขียน sub ใหม่ขึ้นมา ---------------------->
Private Sub UnloadMe()
Me.Close()
End Sub
'<--------------------- เพิ่มบรรทัดนี้เข้าไปที่ Form_Load ---------------------->
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BeginInvoke(New MethodInvoker(AddressOf UnloadMe))
End Sub
'<--------------------- เวลาเรียกใช้ก็ ---------------------->
me.UnloadMe ได้เลย ก็เอาไปแทนที่ me.Close ใน code คุณอ่ะ
Load balance : Server 00
