蓝大 我看了后 忽然有了个新想法 我修改下您之前写给我的下面这段代码 就可以自动追加出一个日志
他们输的界面和原来一样 但列名只有1-31列，由于记录都是在当月完成的，所以追加的时候原来的“被修改字段”变成（当前年月+列名） 后面根据修改内容记录下 班、病、年、事等等
不知道这个思路可不可行
datacolchanging事件
Select Case e.DataCol.Name
Case "身份证","姓名","单位","学历","电话","年薪"
Dim dr As DataRow
If e.DataRow.Rowstate <> DataRowState.Unchanged
dr = DataTables("表B").Find("修改者='" & user.Name & "' and 被修改字段='" & e.DataCol.name & "'" and 姓名=xxxx")
End If
If dr Is Nothing Then
dr= DataTables("表B").AddNew
dr("修改者") = user.Name
dr("修改时间") = Date.Now
dr("身份证") = e.DataRow("身份证")
dr("姓名") = e.DataRow("姓名")
dr("原值") = e.oldvalue
dr("被修改字段") = e.DataCol.name
End If
dr("现值") = e.newvalue
End Select
加好友 
发短信
Post By：2020/7/31 16:39:00 [显示全部帖子]
