主题：老师帮忙看看

Dim khmc As WinForm.ComboBox = e.Form.Controls("客户名称")
Dim st As WinForm.DateTimePicker = e.Form.Controls("DateTime客户起始")
Dim et As WinForm.DateTimePicker = e.Form.Controls("DateTime客户终止")
'
Dim jb1 As New SQLJoinTableBuilder("查询表1","销售单")
jb1.AddTable("销售单","客户简码","客户信息表","客户简码")
jb1.AddExp("日期","出库日期")
jb1.AddExp("摘要","'期初'")
jb1.AddExp("期初","期初_应收客户款")
jb1.AddExp("应收","iif(销售金额 Is null,0,销售金额) + iif(开piao金额 * 税点 Is null,0,开piao金额*税点)+ iif(其他应收 Is null,0,其他应收) + iif(代垫费用 Is null,0,代垫费用) ")
jb1.AddExp("收款",0)
jb1.AddExp("余额","期初_应收客户款")
jb1.Filter="客户名称 = '" & khmc.Value & "' and 日期 BETWEEN #" & st.Value & "# and  #" &  et.Value & "#"

Dim jb3 As New SQLJoinTableBuilder("查询表1","收款单")
jb3.AddTable("收款单","客户简码","客户信息表","客户简码")
jb3.AddExp("日期","收款日期")
jb3.AddCols("摘要")
jb3.AddExp("期初",0)
jb3.AddExp("应收",0)
jb3.AddExp("收款","收款金额")
jb3.AddExp("余额",0)
jb3.Filter="客户名称 = '" & khmc.Value & "' and 日期 BETWEEN #" & st.Value & "# and  #" &  et.Value & "#"

jb1.Union(jb3)

Tables("查询_tbl客户查询").DataSource  = jb1.BuildDataSource

 如果不行，请上传项目测试。

 1、必须为每一个设置条件；如果没不设置，那就只能在build之后，直接设置 Tables("").Filter

 3、你的窗口日期控件没有赋值把？如果没有赋值合成的条件就可能有问题。

改成

jb1.Filter="客户名称 = '" & khmc.Value & "' and 出库日期 BETWEEN #" & st.Value & "# and  #" &  et.Value & "#"

--------------

jb3.Filter="客户名称 = '" & khmc.Value & "' and 收款日期 BETWEEN #" & st.Value & "# and  #" &  et.Value & "#"