If Tables("weixin").Current.IsNull("shuliang")=True '判断是否不符合验证要求
MessageBox.Show("商城为空,请输入或者删除行") '提示用户
Else
Dim Index As Integer
Dim Row As DataRow = DataTables("weixin").Find("shuliang is null")
If Row IsNot Nothing Then
Index = Tables("weixin").FindRow(Row) '找出此行在销售数据Table中的位置
If Index > -1 Then '如果找到此行
Tables("weixin").Position = Index '将焦点定位到此行
End If
End If
MainTable = Tables("product") '选择销售数据表作为主表.
Return
End If
MainTable = Tables("product")
Tables("weixindanhao").addnew()
黄色的地方 要用cancel 但是在菜单的 按钮里 不支持 ,所以咨询一下,
想在添加新的 订单前检查一下,原先的订单是不是有 没有输入数量的。
[此贴子已经被作者于2015/10/27 10:43:42编辑过]