之前还用的好好的,不知道什么问题

Dim r As Row = Tables("入库录入窗口_Table3").Current \'获取当前行
If r IsNot Nothing Then
    Dim i As Integer
    Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
    If Integer.TryParse(t.value,i) AndAlso i>0 Then
        Dim rcp As Row=Tables("入库录入窗口_Table1").AddNew(i)
        rcp("rkid")=r("_identify")
    Else
        MessageBox.Show("非数字型,请重新输入数字!")
    End If
End If
DataTables("入库录入窗口_Table1").Save
DataTables("入库录入窗口_Table3").Save
DataTables("入库录入窗口_Table2").Save

此主题相关图片如下：1.png