审核栏勾选进,填入审核人及审核时间
审核栏取消勾选时,清除审核人及审核时间
If e.DataCol.Name = "审核" Then
If e.DataRow("审核") = True Then
e.DataRow("审核人") = User.Name
e.DataRow("审核时间") = Date.Now
Else
e.DataRow("审核人") = ""
e.DataRow("审核时间")= '此处应该怎样写?
End If
End If
If e.DataCol.Name = "审核" Then
If e.DataRow("审核") = True Then
e.DataRow("审核人") = User.Name
e.DataRow("审核时间") = Date.Now
Else
e.DataRow("取消审核人") = User.Name
e.DataRow("取消审核时间")= Date.Now
End If
End If