|
Dim r As Row = Tables("表A").Current
If r.IsNull("产品") = False AndAlso r.IsNull("产品规格") Then
If MessageBox.Show("是否确定不输入产品规格?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No
Return
End If
End If
If r.IsNull("结算方式") OrElse r.IsNull("金额") Then
MessageBox.Show("请输入结算方式和金额?", "提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
DataTables("表A").DeleteFor("客户 Is Null")
DataTables("表A").Save
e.Form.close
|
加好友 
发短信
Post By：2012/2/20 11:52:00 [显示全部帖子]
