ผมต้องการนับก่อนว่าจำนวนแถวใน DataGridView1 มันมีมากกว่า จำนวนวัคซีนที่ Sum ออกมาจาก DB รึเปล่าครับ ถ้ามากกว่า
ก็จะไม่สามารถเพิ่มข้อมูลลง DataGridView2 ได้อะครับ
อันนี้ส่วนกดปุ่มเพิ่มครับ Code (VB.NET)
Private Sub bt_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Add.Click
Dim d_set1 As DataSet
d_set1 = New DataSet
Dim i As Integer = 0
For i = 0 To Vaccination.DataGridView2.Rows.Count - 1
Dim temp_DogID As String = ""
temp_DogID = Vaccination.DataGridView2.Rows(i).Cells(0).Value
If temp_DogID = Me.DataGridView1.CurrentRow.Cells(0).Value Then ' ใช้ CurrentRow เพื่อเอาค่าที่เราเลือก ณ ตอนนั้นไปเทียบกับ Grid ที่เราจะใส่ข้อมูล
MessageBox.Show("คุณเลือกสุนัขซ้ำกรุณาเลือกใหม่", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Next
'================== เลือกสุนัขเเล้วส่งไปหน้า Vaccination ===================================================
For i = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Selected Then
Dim j As Integer = Vaccination.DataGridView2.Rows.Add
Vaccination.DataGridView2.Rows(j).Cells(0).Value = DataGridView1.Rows(i).Cells(0).Value
Vaccination.DataGridView2.Rows(j).Cells(1).Value = DataGridView1.Rows(i).Cells(1).Value
Vaccination.DataGridView2.Rows(j).Cells(2).Value = DataGridView1.Rows(i).Cells(2).Value
Vaccination.DataGridView2.Rows(j).Cells(3).Value = DataGridView1.Rows(i).Cells(3).Value
End If
Next
Vaccination.lb_qtyDog.Text = Vaccination.DataGridView2.Rows.Count
Vaccination.DataGridView2.Enabled = True
Vaccination.bt_Cancel.Enabled = False
Vaccination.bt_cancelAll.Enabled = True
Me.Close()
End Sub
คุณเพื่อน..ลองดูอันนี้ โค้ดส่วนตรวจสอบการลบ ของกวางดึงค่าจาก DB ลง dataset ก่อน
Code (VB.NET)
Dim da = New SqlDataAdapter("SELECT EmpCode,EmpRcode,Rcode,DCode FROM Purchase_Order,Receipt,Distribute WHERE EmpCode = '" & tb_ID.Text & "' or EmpRCode = '" & tb_ID.Text & "' or RCode = '" & tb_ID.Text & "' or DCode = '" & tb_ID.Text & "'", SqlConnection1)
da.Fill(ds, "eid")
Dt = ds.Tables("eid")
If ds.Tables("eid").Rows.Count <> 0 Then
temp_mycommand = "Update employee set Status = '0' where EmpID = '" & tb_ID.Text & "'"
Else
temp_mycommand = "Delete from employee where EmpID ='" & tb_ID.Text & "'"
End If