ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 772|ตอบกลับ: 5

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

[คัดลอกลิงก์]

3

กระทู้

10

โพสต์

101

เครดิต

Member

Rank: 2

เครดิต
101

Pair

Pair



245

กระทู้

345

โพสต์

2865

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2865
โพสต์ 2019-8-3 12:38:56 | ดูโพสต์ทั้งหมด

ไม่ได้บอกรายละเอียดมาว่าต้องเกิดเหตุการณ์ตรวจสอบตอนไหน ผมขอตอบแบบรวมๆของ 5 แบบก็แล้วกันครับ ...
  1.     '// เผื่อนำค่าไปใช้งาน
  2.     Dim blnKeyPress As Boolean() = {False, False, False, False}

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


สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

3

กระทู้

10

โพสต์

101

เครดิต

Member

Rank: 2

เครดิต
101
 เจ้าของ| โพสต์ 2019-8-5 15:12:58 | ดูโพสต์ทั้งหมด

CellEndEdit ครับ

3

กระทู้

10

โพสต์

101

เครดิต

Member

Rank: 2

เครดิต
101
 เจ้าของ| โพสต์ 2019-8-5 16:43:13 | ดูโพสต์ทั้งหมด

แก้ไขครั้งสุดท้ายโดย gp1619 เมื่อ 2019-8-9 09:45

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

245

กระทู้

345

โพสต์

2865

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2865
โพสต์ 2019-8-6 12:35:20 | ดูโพสต์ทั้งหมด

ผมก็ไม่รู้ว่าจะใช่ตามที่ต้องการหรือเปล่าน่ะครับ ...
  1.     Dim blnKeyPress As Boolean() = {False, False, False, False}

  2.     Function ValidData() As Boolean
  3.         '// Reset
  4.         blnKeyPress = {False, False, False, False}
  5.         '// Initialize
  6.         ValidData = False
  7.         '// แถว 0, หลัก 0 (อ่านค่าตาม Index)
  8.         If DataGridView1.Rows(0).Cells(0).Value <> "" Then
  9.             blnKeyPress(0) = True
  10.         End If
  11.         '// แถว 1 หลัก 0
  12.         If DataGridView1.Rows(1).Cells(0).Value <> "" Then
  13.             blnKeyPress(1) = True
  14.         End If
  15.         '// แถว 2 หลัก 1
  16.         If DataGridView1.Rows(2).Cells(1).Value <> "" Then
  17.             blnKeyPress(2) = True
  18.         End If
  19.         '// แถว 3 หลัก 1
  20.         If DataGridView1.Rows(3).Cells(1).Value <> "" Then
  21.             blnKeyPress(3) = True
  22.         End If
  23.         '// ตรวจสอบและคืนค่า
  24.         If blnKeyPress(0) And blnKeyPress(1) And blnKeyPress(2) And blnKeyPress(3) Then ValidData = True

  25.     End Function

  26.     Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
  27.         If ValidData() Then
  28.             MsgBox("Have data in cell 1, 2, 3 and 4.")
  29.         End If
  30.     End Sub
คัดลอกไปที่คลิปบอร์ด


ValidDataCell.png
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

3

กระทู้

10

โพสต์

101

เครดิต

Member

Rank: 2

เครดิต
101
 เจ้าของ| โพสต์ 2019-8-6 15:56:36 | ดูโพสต์ทั้งหมด

ขอบคุณมาก ครับ
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-7-7 19:49 , Processed in 0.300356 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้