1、 If e.DataCol.Name = "提交订单" Then If e.DataRow.IsNull("产品名称") Then MessageBox.Show("请先填写品名数据再提交!") e.Cancel = True End If End If 2、 If Tables("订单").Current("业务员") <> User.Name Then MessageBox.Show("对不起,你不是订单录入者本人,无法修改订单!") Return Else Tables("订单").Current.Delete End If 3、建议再次系统学习一下开发指南下的《编程基础》和《foxtable编程》这两章。
|