Select Case e.DataCol.name
Case "第一列", "第二列"
If e.DataTable.Name <> "数据操作日志" Then
If e.DataRow.RowState = 2 Then
Return
Else
Dim dr As DataRow = DataTables("数据操作日志").AddNew
dr("ID") = e.DataRow("_Identify")
dr("用户") = User.Name
dr("涉及表") = e.DataTable.Name
dr("涉及列") = e.DataCol.Name
dr("涉及行") = e.DataRow("_Identify")
dr("时间") = Date.Now
dr("操作") = """" & e.OldValue & """ 改成了 """ & e.NewValue & """"
Dim str As String = ""
For Each c As DataCol In e.DataTable.DataCols
str += c.Name & "=" & e.DataRow(c.Name) & "|"
Next
dr("原行数据") = str
End If
End If
End Select
编写beforesavedatarow事件时无法保存
此主题相关图片如下：微信截图_20190211161133.png
另外窗口修改按钮的代码怎么写呢？ 修改之前的数据和之后的数据怎么取值呢？怎么判断某一个字段是否改变了？
[此贴子已经被作者于2019/2/11 19:16:01编辑过]
加好友 
发短信
Post By：2019/2/10 12:18:00 [显示全部帖子]
