Dim dr As DataRow
If Tables("收购").Rows.Count = 0 Then
    dr = DataTables("收购").AddNew()
    dr("日期") = vars("adate")
    e.Form.Controls("猪主姓名").Select()
Else
    For Each r As Row In Tables("收购")
        r("修改") = True
    Next
    With Tables("收购")
        .Position = .Rows.Count - 1
    End With
   
    \'以下代码实现:检查位置内的数值有没有未输入的. 一个 为空控件名称一个为提示中文集合
    Dim kjmc() As String \'控件名称
    Dim kjmcjh As String = "猪主姓名,重量,单价" \'控件名称集合
    kjmc = kjmcjh.Split(",")
    For i As Integer=0 To kjmc.Length-1
        If e.Form.Controls(kjmc(i)).value Is Nothing Then
            MessageBox.Show(kjmc(i) & "不能为空,请检查")
            Dim t As Row = Tables("收购").current()
            t("修改") = False
            e.Form.Controls(kjmc(i)).Select
            Return
        End If
    Next
    dr = DataTables("收购").AddNew()
    dr("日期") = vars("adate")
    With Tables("收购")
        .Position = .Rows.Count - 1
    End With  
    e.Form.Controls("猪主姓名").Select()   
End If

为什么录入第一后，再录入第二条时，第一记录的“修改”不能自动加上true,在录入第二条回车后，第一条、第二条记录才能同时加上true，录入第三条后，才正常，如何改？