Select Case e.sender.name
Case "确认出库"
'Dim nms() As String = {"领取单位","名称","规格","出库单价","数量","领取人","出库日期"}
Dim r As Row = Tables("出库").Current 也是是因为没有当前行,要判断一下当前行是否为空
if r isnot nothing then
For Each nm As String In nms
If r.isnull(nm) Then
e.Cancel =True
messagebox.show(nm & "录入信息不全,请补充完整!")
Return
End If
Dim result1 As DialogResult
result1 = messagebox.show("选择<是>将保存记录,选择<否>将删除本条记录,选择<取消>继续编辑本条记录","提示",messageboxbuttons.yesnocancel,MessageBoxIcon.Question)
If result1 = DialogResult.Yes Then
CurrentTable.Current.save()
Dim result2 As DialogResult
result2 = messagebox.show("本条入库已保存,是否再录入一条?","提示",messageboxbuttons.yesno,MessageBoxIcon.Question)
If result2 = DialogResult.Yes Then
Tables("出库").AddNew()
End If
Else If result1 = DialogResult.Cancel
Return
Else
DataTables("出库").RejectChanges() '取消改变
End If
end if
加好友 
发短信
Post By：2013/12/27 15:50:00 [显示全部帖子]
