在这个事件写代码:
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