以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]根据其他表条件筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172143)
--  作者：lgj716330
--  发布时间：2021/9/26 15:41:00
--  [求助]根据其他表条件筛选
Dim b As New SQLGroupTableBuilder("统计表1","导入")
b.C
b.Groups.AddDef("年份") 
b.Groups.AddDef("月份") 
b.Groups.AddDef("制单人") 
b.Groups.AddDef("凭证号")
b.Totals.AddDef("借方金额") 
b.Totals.AddDef("贷方金额")
b.Totals.AddExp("借贷差额","isnull([借方金额],0)-isnull([贷方金额],0)")
b.Filter = "年份 = \'" & NF & "\' and 月份 = \'" & YF & "\'"
b.Build 

    Tables("导入").Filter = ”如何根据统计表1结果中借贷差额不为0的来筛选” 
[此贴子已经被作者于2021/9/26 15:41:33编辑过]
--  作者：有点蓝
--  发布时间：2021/9/26 15:51:00
--  
……
b.Build 
dim s as string = “1=2”
for each dr as datarow in datatables("统计表1").select(借贷差额 <> 0)
s = s & " or (制单人=\'" & dr("制单人") & "\' and 凭证号 = \'" & dr("凭证号") & "\')"
next
s = "(" & s & ") and 年份 = \'" & NF & "\' and 月份 = \'" & YF & "\'"
Tables("导入").Filter = s