主题：表达式错误

Dim Val As Double = DataTables("销售订单").SQLCompute("Sum(数量)", "产品分类 = '项目料' and " & Filter )

改成

1、msgbox(td.text) 弹出什么？

2、改成这样呢？

bd1.Filter = "[单据日期] = #" & td.Text & "#" 

试试改成

bd1.Filter = "[单据日期] >= '" & td.value & "' and [单据日期] < '" & td.value.adddays(1) & "'"

1、你把数据加载出来了没有？是不是没数据？

2、做个简单的实例发上来测试。

其余代码，单独测试这段代码

Dim bd1 As New GroupTableBuilder("统计表11",DataTables("销售订测试"))
Dim td As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
bd1.Filter = "[单据日期] = #" & td.value & "#"
bd1.Groups.AddDef("业务员") '根据型号分组
bd1.Groups.AddDef("客户名称") '根据型号分组
bd1.Groups.AddDef("产品分类") '根据型号分组
bd1.Groups.AddDef("物料名称") '根据型号分组
bd1.Totals.AddDef("数量") '对数量进行统计
Tables("销售日报表_Table1").DataSource = bd1.BuildDataSource()

msgbox(DataTables("销售订测试").Select(bd1.filter).count)

1、测试弹出什么

msgbox(DataTables("销售订测试").Select(bd1.filter).count)

2、测试能否筛选

Tables("销售订测试").filter = bd1.filter

3、不会做，联系客服QQ远程排查一下

如果提示没有找到【xxx】列，那就是你这个表格里面确实没有对应的列。请确认

http://www.foxtable.com/webhelp/scr/0193.htm

要有这张表，要有这个列，在这里核对 http://www.foxtable.com/webhelp/scr/0193.htm

如果报错，肯定是你表名或者列名写错了导致的。

如果不会测试，联系客服远程调试一下。