If Tables("进销存入库").Rows.Count = 0 Then
Syscmd.Row.AddNew()
ElseIf Tables("进销存入库").Rows.Count > 0 Then
Dim r As Row = Tables("进销存入库").Current
If r("制单") = "" Then
r("制单") = User.Name
End If
If Tables("进销存入库.进销存入库明细").rows.count <= 0 Then
Return
End If
If e.Form.controls("DropBox1").value = "" Then
MessageBox.Show("请录入部门!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
Return
End If
If e.Form.controls("DropBox3").value = "" Then
MessageBox.Show("请录入仓库名称!", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
Return
End If
Dim dr As Row = Tables("进销存入库").AddNew()
dr("日期") = Date.Today()
dr("制单") = User.Name
dr("系统") = "客户模具"
dr("单据类型") = "模具借入"
End If
在打开窗口时，没有符合条件的行加载出来，在增加行时出错。
如果不考虑在录入过程中出错的情况，直接使用Dim dr As Row = Tables("进销存入库").AddNew()是可以的，
但是考虑录入过程中出错时，使用上面的代码，又会出现刚加载表时没有数据的可能出错。
Syscmd.Row.AddNew()使用这句还是不行
这个需要怎样处理呢???
加好友 
发短信
Post By：2024/4/18 0:06:00 [只看该作者]
