主题：用行号遍历数据表

如何利用数据表的行号遍历数组或集合？

For...Next语句经常用于遍历数组或集合，例如下面的代码，定义一个数组，然后给每个数组元素设置值：

For Index As Integer = 0 To MAX("行号").Length - 1
    Values(Index) = Index * 2
Next

如果数据表有20行，就利用数据表的行号进行遍历数据表

    For Each r As Row In Tables("收购").Rows
        If r.Isnull("猪主姓名") Then
            MessageBox.Show("请录入!")
            e.Form.Controls("猪主姓名").Select()

    Next
输入上述代码不行呀？

    Dim kjmc() As String '控件名称
    Dim kjmcjh As String = "猪主姓名,重量,单价" '控件名称集合
    kjmc = kjmcjh.Split(",")
    For Each r As Row In Tables("收购").Rows
        For i As Integer=0 To kjmc.Length-1
            If e.Form.Controls(kjmc(i)).value Is Nothing Then
                MessageBox.Show(kjmc(i) & "不能为空,请检查")
                r("修改") = False
                e.Form.Controls(kjmc(i)).Select
                Return
            End If
        Next
    Next
    dr = DataTables("收购").AddNew()
    dr("日期") = vars("adate")
    With Tables("收购")
        .Position = .Rows.Count - 1
    End With
    e.Form.Controls("猪主姓名").Select()

上述代码，当有两空行时，它不会检查到，仍增加一行，只有在当行时，才检查到"猪主姓名,重量,单价" 的空值。

我就是要找一行，输入一行，但它只会找最后一行。

上述代码中            r("修改") = False
不起作用。

是不是For Each r As Row In Tables("收购").Rows
不起作用？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

希望能按顺序搜索到每笔空值，每搜一笔，录入一笔。

发现“品名、重量、单价”为空值时，要补填完，才能新增一行。