我可以DataGridView
控制我的表单。它有 6 列和 6 行(永远不会改变)。当用户在任何列下的单元格中输入数据时,我想确保他们填写该行的其余单元格。所以基本上,如果他们将数据放在第 0 行 - 第 0 列,我想确保第 0 行 - 第 1 列,第 0 行 - 第 2 列等等......其中有数据。在将其提交到数据库之前,出于验证原因,我需要它。如果该行的字段未全部填写,我想显示一条消息,其中包含需要修复的行。
任何帮助是极大的赞赏!
这是一个更新,我已经弄清楚需要做什么。
Private Sub ValidateYear()
Dim oInvYear As New Collection
Dim oErrorMsg As New System.Text.StringBuilder
Dim blnErrFound As Boolean = False
'Loop through year column and check for number, if blank skip'
For i As Integer = 0 To dgvIntervals.Rows.Count - 1
If Not String.IsNullOrEmpty(dgvIntervals.Rows(i).Cells(4).Value) Then
If Not IsNumeric(dgvIntervals.Rows(i).Cells(4).Value) Then
oInvYear.Add(i + 1)
blnErrFound = True
End If
End If
Next
'If errors found, lets append them to our message'
If blnErrFound Then
oErrorMsg.Append("PLEASE FIX ERRORS BELOW BEFORE PROCEEDING")
oErrorMsg.AppendLine("")
oErrorMsg.Append(vbCrLf)
'Get our year count errors'
If oInvYear.Count > 0 Then
oErrorMsg.Append("* Year must be a number- ")
oErrorMsg.Append("Line(s): ")
For i As Integer = 1 To oInvYear.Count
If i >= 2 Then
oErrorMsg.Append(", ")
End If
oErrorMsg.Append(oInvYear.Item(i).ToString)
Next
oErrorMsg.Append(vbCrLf)
End If
'Show them to our user'
MsgBox(oErrorMsg.ToString)
End Sub