主题：两个表格对比，空的单元格要填上0，才能筛选出来

If e.DataCol.Name = "日期" Or e.DataCol.Name = "增" Or e.DataCol.Name = "减"

    Dim dr1 As DataRow

    dr1 = DataTables("借贷表").Find("[日期] = '" & e.DataRow("日期") & "' and [增] = '" & e.DataRow("增") & "' and [减] = '" & e.DataRow("减") & "'")

    If dr1 IsNot Nothing Then

        e.DataRow("表一") = True

    Else

        e.DataRow("表一") = False

    End If

End If