主题：[求助]第一列空白行的行数自动录入

Dim dt As DataTable '定义一个数据表变量

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "第一列"

        If dr("第一列")  <> "合格"  Then

            For i As Integer = 0 To  dt.DataRows.Count

                If dr(i)("第一列") <> Nothing Then

                    Dim a As Integer = 0

                    Dim c As Integer = 1

                    For j As Integer = a To i - 1

                        dr(j)("第一列") = c

                    Next

                    s = dr(i)("第一列")

                    a = i

                    c = 1

                Else

                    c += 1

                End If

            Next

        End If

End Select