下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:操作日志.table

我怎么能把 操作日志  中的  “数据操作日志”及相关功能增加到我现有的   管理项目1   中。并具有其功能？

我是试用版哈！谢谢
请大侠帮完成  管理项目1   变更记录   。功能与   操作日志  一样。

 1、对应的增加表格；

 2、全部代码拷贝到你的项目中去。

试验版可以使用代码？

代码在什么位置/

全部代码

项目事件

MainTableChanged

For Each dt As DataTable In DataTables

    dt.GlobalHandler.DataColChanged = True

    dt.GlobalHandler.DataRowAdded = True

Next

全局表事件

DataColChanged

If e.DataTable.Name <> "数据操作日志" Then

    If e.DataRow.RowState = 2 Then

MessageBox.Show(e.DataRow.RowState)

        Return

    Else

MessageBox.Show(e.DataRow.RowState)

        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

DataRowAdded

If e.DataTable.Name <> "数据操作日志" Then

    Dim dr As DataRow = DataTables("数据操作日志").AddNew

    dr("ID") = e.DataRow("_Identify")

    dr("用户") = User.Name

    dr("涉及表") = e.DataTable.Name

    dr("涉及列") = Nothing

    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

 设置代码的地方 http://www.foxtable.com/help/topics/1445.htm

非常感谢！