先看看:
http://www.foxtable.com/webhelp/topics/0604.htm
If e.DataCol.Name = "完成" Then
If e.DataRow("完成") = true Then
Dim Result As DialogResult
Result = MessageBox.Show("数据正确吗,是否要锁定记录?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables("业务记录总表").ReplaceFor("_locked",e.newvalue,"营业序号='" & e.DataRow("营业序号") & "'")
DataTables("服务明细").ReplaceFor("_locked",e.newvalue,"营业序号='" & e.DataRow("营业序号") & "'")
DataTables("消费明细").ReplaceFor("_locked",e.newvalue,"营业序号='" & e.DataRow("营业序号") & "'")
DataTables.Save()
MessageBox.Show(" 记录已锁定!","提示")
Else
e.DataRow("完成") = False
MessageBox.Show(" 已放弃锁定记录.","提示")
End If
End If
End If