两个表格做对比,Find来寻找,找到逻辑列就打勾。空的单元格一定要打上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
-----
此主题相关图片如下:foxtable1.png
[此贴子已经被作者于2018/9/19 16:36:05编辑过]