主题：[求助]系统增加删除行日志求助

1、

For Each dt As DataTable in DataTables

    dt.GlobalHandler.DataColChanged = True

Next

3、参考

http://www.foxtable.com/webhelp/scr/2069.htm

增加行代码

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("操作") = "增加了一行"
    End If
End If

删除行代码

If e.DataTable.Name <> "系统数据操作日志表"  Then
    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("操作") = "删除了一行"
    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

改一下，新增行的时候，没有数据的。

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("操作") = "增加了一行"
    End If
End If

Dim r As Row = Tables("表A").Current

Dim s As String = r("第一列") & " " & r("第二列")

ClipBoard.SetText(s)

1、