指定表的数据写到数据日志里，而不是所有的表。代码如下：

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

For Each dt As DataTable In DataTables

    dt.GlobalHandler.BeforeSaveDataRow = True

Next