流程控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim r As Row = Tables("凭证").Current

If e.DataCol.Name = "结账" Then '如果是已结帐列的内容变动

'If r IsNot Nothing Then

If r("审核") = True Then

r("结账") = False

r.Locked = True '那么锁定此行

r("结账信息") = User.Name & "-"& Date.Now & "结账"

r("结账日期") = Date.Now

r("出纳") = User.Name

Else

e.Cancel = True

MessageBox.Show("不能批准还未通过审核的行.")

End If

如果审核没有通过就会停止执行不允许结账并提示如果审核通过就可以结账

主题：流程控制