If e.DataCol.Name = "结账" Then '如果是已结帐列的内容变动
If e.NewValue = False Then '而且变动后的值是True(已勾选)
e.DataRow.Locked = False '那么锁定此行
e.DataRow("结账信息") = User.Name & "-"& Date.Now & "撤销结账"
e.DataRow("结账日期") = Nothing
e.DataRow("出纳") = Nothing
e.DataRow("大类") = "B.负债" 这句需要判断下,如果内容是 c.损益 那么等于 B.负债 如果不是 c.损益 什么也不做
End If
End If