之前还用的好好的,不知道什么问题
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