项目事件
AfterOpenProject
For Each dt As DataTable In DataTables
dt.GlobalHandler.DataColChanged = True
dt.GlobalHandler.DataRowAdded = True
Next
MainTable = Tables("设备台帐表")
Tables("设备台帐表").Visible = False
Tables("维修工单录入").Visible = False
Syscmd.Project.OpenSystemMenu()
Forms("1360*768分辨率窗口").Open()
DataColChanged
If e.DataTable.Name <> "数据操作日志" Then
If e.DataRow.RowState = 2 Then
Return
Else
Dim dr As DataRow = DataTables("数据操作日志").AddNew
dr("用户") = ComputerName
dr("涉及表") = e.DataTable.Name
dr("涉及列") = e.DataCol.Name
dr("涉及行") = User.Name
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
DataRowAdded
If e.DataTable.Name <> "数据操作日志" Then
Dim dr As DataRow = DataTables("数据操作日志").AddNew
dr("用户") = ComputerName
dr("涉及表") = e.DataTable.Name
dr("涉及列") = Nothing
dr("涉及行") = User.Name
dr("时间") = Date.Now
dr("操作") = "增加了一行"
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
加好友 
发短信
Post By：2018/3/14 9:50:00 [显示全部帖子]
此主题相关图片如下：qq图片20180314095012.jpg
