主题：删除符合的行

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("流水账"))
Dim dt2  As fxDataSource
bd2.Filter = "[类别] ='支出' and 账户名称 in ('" & zhmc  & "')"
bd2.FromServer = True
bd2.Groups.AddDef("账户名称") 
bd2.Totals.AddDef("金额","支出金额") 
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("流水账"))
Dim dt3 As fxDataSource
bd3.Filter = "[类别] = '收入' and 账户名称 in ('" & zhmc  & "')"

bd3.FromServer = True
bd3.Groups.AddDef("账户名称") 
bd3.Totals.AddDef("金额","收入金额") 
dt3 = bd3.BuildDataSource()

dt1.Combine("账户名称",dt2,"账户名称") 
dt1.Combine("账户名称",dt3,"账户名称") 
dt1.Show("统计") 
DataTables("统计").DataCols.Add("余额",Gettype(Double),"( IIF( 初始金额 Is null,0,初始金额) -IIF( 支出金额 Is null,0, 支出金额) + IIF(收入金额 Is Null,0,收入金额))")