以下是引用czy在2010-4-1 13:11:00的发言:
好象没这么简单吧?
少了借贷的比较就失去意义了。
[此贴子已经被作者于2010-4-1 13:12:15编辑过]
没注意到他还有两个条件,这个不是问题,增加两组条件就ok了
..........添加临时列
for i as integer = 0 to tables("帐簿").count -1
dim dr as datarow
dr = DataTables("帐簿").Find("[日期] = #" & tables("帐簿").rows(i)("日期") & "# and [凭证号] = '" & tables("帐簿").rows(i)("凭证号") & "'and [借方金额] = " & tables("帐簿").rows(i)("借方金额") & "and [贷方金额] = " & tables("帐簿").rows(i)("贷方金额"))
if tables("帐簿")(i,"_Identify") = dr("_Identify")
dr("Note") = "a"
end if
next
Tables("帐簿").Filter = "[Note] = 'a'"
.........删除临时列