1、比如：
http://www.foxtable.com/webhelp/topics/0617.htm
If e.Col.Name = "折扣" Then '如果正在输入的是折扣列
If e.Text = "" Then '如果没有输入内容
e.Cancel = True '则禁止退出编辑模式
End If
End If
If e.DataRow.isnull("数量") Then '判断是否不符合验证要求
MessageBox.Show("数量不能为空","存盘失败",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) '提示用户
Dim Index As Integer
Index = Tables("订单").FindRow(e.DataRow) '找出此行在销售数据Table中的位置
If Index > -1 Then '如果找到此行
Tables("订单").Position = Index '将焦点定位到此行
End If
Maintable = Tables("订单") '选择销售数据表作为主表。
e.Cancel = True '取消存盘
End If
加好友 
发短信
Post By：2022/8/20 15:57:00 [只看该作者]
