主题：[求助] 生成修改记录的问题，求思路

在这个事件写代码：

http://www.foxtable.com/help/topics/0628.htm

If e.DataRow.RowState = DataRowState.Modified Then
    Dim s As String  = ""
    For Each c As DataCol In e.DataTable.DataCols
        If e.DataRow.OriginalValue(c.name) <> e.DataRow(c.name) Then
            If s >"" Then
                s = s & vbcrlf
            End If
            s = s & c.name & "|" & e.DataRow.OriginalValue(c.name) & "|" & e.DataRow(c.name)
        End If
    Next
    If s > "" Then
        Dim dr As DataRow = DataTables("表B").AddNew
        dr("第十列") = s
    End If
End If