For i = 0 To DataGridView1.Rows.Count - 1
Dim temp_DogID As String = ""
temp_DogID = DataGridView1.Rows(i).Cells(0).Value
Dim d_adap2 As SqlDataAdapter
Dim d_set2 As DataSet
d_set2 = New DataSet
'เลือกสุนัขของลูกค้าที่ยังฝากอยู่ขึ้นมา
d_adap2 = New SqlDataAdapter("Select Cdog_ID,Cdog_Name,Cdog_Sex,Cdog_Color,Breed_Name,Size_Name,a.Price_Rate " & _
"From Care_Service,Care_Detail,Customer,Customer_Dog,Dog_Breed,Price_Rate a " & _
"Where Dog_Breed_ID = Dog_Breed_No and Size_ID = Size_No and cus_id = cus_no " & _
"and care_id = care_no and cdog_no = cdog_id and cdog_status = '1' and care_status = 'ca' " & _
"and Cus_No = '" & PublicData.Cus_ID & "' ", sqlConnection)
d_adap2.Fill(d_set2, "Carring")
If d_set2.Tables("Carring").Rows(i)("Cdog_ID") = "" Then
MessageBox.Show("ว่าง", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
If temp_DogID = d_set2.Tables("Carring").Rows(i)("Cdog_ID") Then
MessageBox.Show("สุนัขที่คุณเลือกยังอยู่ในการฝาก", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
If DataGridView1.Rows(i).Selected Then
Dim j As Integer = Care.DataGridView2.Rows.Add() 'สร้างตัวแปร j ไว้รับค่าที่เราเลือกจาก DataGridView1
Care.DataGridView2.Rows(j).Cells(0).Value = DataGridView1.Rows(i).Cells(0).Value 'คือ ส่งค่าที่เราเลือกจาก DataGridView1 ของ i ไปให้ DataGridView1 ของ j
Care.DataGridView2.Rows(j).Cells(1).Value = DataGridView1.Rows(i).Cells(1).Value
Care.DataGridView2.Rows(j).Cells(2).Value = DataGridView1.Rows(i).Cells(2).Value
Care.DataGridView2.Rows(j).Cells(3).Value = DataGridView1.Rows(i).Cells(3).Value
Care.DataGridView2.Rows(j).Cells(4).Value = DataGridView1.Rows(i).Cells(4).Value
Care.DataGridView2.Rows(j).Cells(5).Value = DataGridView1.Rows(i).Cells(5).Value
Care.DataGridView2.Rows(j).Cells(6).Value = DataGridView1.Rows(i).Cells(6).Value
End If
Next
มันเเจ้ง Error ว่า "There is no row at position 1." อะครับ
If temp_DogID = d_set2.Tables("Carring").Rows(i)("Cdog_ID") Then
MessageBox.Show("สุนัขที่คุณเลือกยังอยู่ในการฝาก", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
เปลี่ยน If else แบบนี้ดีกว่า
Code (VB.NET)
Dim dr() As DataTable = d_set2.Tables("Carring").Select("Cdog_ID = " & temp_DogID)
If dr.Count > 0 Then
'แสดงว่ามีข้อมูลใน d_set2.Tables("Carring")
MessageBox.Show("สุนัขที่คุณเลือกยังอยู่ในการฝาก", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If