DataColChanged事件不能写
e.DataRow.Locked = True '那么锁定此行
----------------
如果要写,那你就另外弄一个按钮解锁此行
If UserName = "贺辉" Then
Tables("表A").Current.Locked = False Tables("表A").Current("已结账") = False
End If