全局表事件DataRowAdding
If e.DataTable.Name <> "系统操作日志" And e.DataTable.Name <> "在线用户" Then
Dim da As DateTime = Date.Now()
Dim dr1 As DataRow
dr1 = DataTables("系统操作日志").Find("用户 = '" & _UserName & "' and 操作表 = '" & e.DataTable.Name & "' and 时间 = '" & da & "'","时间 Desc")
If dr1 Is Nothing Then
Dim dr As DataRow = DataTables("系统操作日志").AddNew()
dr("用户") = _UserName
dr("操作表") = e.DataTable.Name
dr("操作列") = Nothing
dr("时间") = Date.Now
dr("操作内容") = "该用户在此表进行了增加行操作"
End If
End If
想实现在同一个时间里进行同一个操作的，如批量导入数据增加行，日志表中只增加一条记录就可以，上面代码还是会增加多条日志
[此贴子已经被作者于2022/4/14 13:53:18编辑过]
加好友 
发短信
Post By：2022/4/13 12:38:00 [显示全部帖子]
