主题：对比两个表，并标记出不同

就是为了动态合成条件。{0}、{1}是占位符，分别填入e.Row("当事人")、e.Row("日期")的值，最后合成 姓名='张三' and 日期 = #2017-09-15#"

datacolchanged

Dim ary() As String = {"作业数量"}
If array.Indexof(ary, e.DataCol.name) >= 0 Then
    If e.DataRow.IsNull("作业piao") = False AndAlso e.DataRow.IsNull("工程") = False AndAlso e.DataRow.IsNull("项目略") = False AndAlso e.DataRow.IsNull("作业者") = False Then
        Dim dr As DataRow = DataTables("日清").Find(CExp("作业piao='{0}' and 工程='{1}' and 项目略='{2}' and 作业者='{3}'",e.DataRow("作业piao"),e.DataRow("工程") ,e.DataRow("项目略"),e.DataRow("作业者")))
        If dr IsNot Nothing Then
            If dr(e.DataCol.name) <> e.DataRow(e.DataCol.name) Then
                e.DataRow("两者一致") = False
            Else
                e.DataRow("两者一致") = True
            End If
        Else
            e.DataRow("两者一致") = False
        End If
    End If
End If