ตรวจสอบการป้อนข้อมูลใน DataGridview หากเหตุการณ์ แบบที่ 5 เป็นจริงให้แสดงข้อความแจ้งเตือน

gp1619

Pair

thongkorn

ไม่ได้บอกรายละเอียดมาว่าต้องเกิดเหตุการณ์ตรวจสอบตอนไหน ผมขอตอบแบบรวมๆของ 5 แบบก็แล้วกันครับ ...

1.     '// เผื่อนำค่าไปใช้งาน
   
2.     Dim blnKeyPress As Boolean() = {False, False, False, False}
   
3. 
   
4.     Private Sub CheckData()
   
5.         '// แถว 0, หลัก 0 (อ่านค่าตาม Index โดยเริ่มจากแถว 0, หลัก 0)
   
6.         If DataGridView1.Rows(0).Cells(0).Value <> "" Then
   
7.             blnKeyPress(0) = True
   
8.             MsgBox("คุณคีย์ข้อมูลแถว 0, หลัก 0")
   
9.         End If
   
10.         '// แถว 1 หลัก 0
    
11.         If DataGridView1.Rows(1).Cells(0).Value <> "" Then
    
12.             blnKeyPress(1) = True
    
13.             MsgBox("คุณคีย์ข้อมูลแถว 1, หลัก 0")
    
14.         End If
    
15.         '// แถว 2 หลัก 1
    
16.         If DataGridView1.Rows(2).Cells(1).Value <> "" Then
    
17.             blnKeyPress(2) = True
    
18.             MsgBox("คุณคีย์ข้อมูลแถว 2, หลัก 1")
    
19.         End If
    
20.         '// แถว 3 หลัก 1
    
21.         If DataGridView1.Rows(3).Cells(1).Value <> "" Then
    
22.             blnKeyPress(3) = True
    
23.             MsgBox("คุณคีย์ข้อมูลแถว 3, หลัก 1")
    
24.         End If
    
25.     End Sub

คัดลอกไปที่คลิปบอร์ด

gp1619

CellEndEdit ครับ

gp1619

ขอบคุณครับ อาจารย์
        

thongkorn

ผมก็ไม่รู้ว่าจะใช่ตามที่ต้องการหรือเปล่าน่ะครับ ...

1.     Dim blnKeyPress As Boolean() = {False, False, False, False}
   
2. 
   
3.     Function ValidData() As Boolean
   
4.         '// Reset
   
5.         blnKeyPress = {False, False, False, False}
   
6.         '// Initialize
   
7.         ValidData = False
   
8.         '// แถว 0, หลัก 0 (อ่านค่าตาม Index)
   
9.         If DataGridView1.Rows(0).Cells(0).Value <> "" Then
   
10.             blnKeyPress(0) = True
    
11.         End If
    
12.         '// แถว 1 หลัก 0
    
13.         If DataGridView1.Rows(1).Cells(0).Value <> "" Then
    
14.             blnKeyPress(1) = True
    
15.         End If
    
16.         '// แถว 2 หลัก 1
    
17.         If DataGridView1.Rows(2).Cells(1).Value <> "" Then
    
18.             blnKeyPress(2) = True
    
19.         End If
    
20.         '// แถว 3 หลัก 1
    
21.         If DataGridView1.Rows(3).Cells(1).Value <> "" Then
    
22.             blnKeyPress(3) = True
    
23.         End If
    
24.         '// ตรวจสอบและคืนค่า
    
25.         If blnKeyPress(0) And blnKeyPress(1) And blnKeyPress(2) And blnKeyPress(3) Then ValidData = True
    
26. 
    
27.     End Function
    
28. 
    
29.     Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
    
30.         If ValidData() Then
    
31.             MsgBox("Have data in cell 1, 2, 3 and 4.")
    
32.         End If
    
33.     End Sub

คัดลอกไปที่คลิปบอร์ด

gp1619

ขอบคุณมาก ครับ