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