Dim sql As String = "Select a.*,(Select [报价] f-rom {采购价格} b where a.[失效日期]=#2100-1-1#) as [报价],(Select c.[物料代码] f-rom {采购价格} c where a.[物料代码]=c.[物料代码]) as [物料代码],(Select d.[规格型号] f-rom {采购价格} d where a.[规格型号]=d.[规格型号]) as [规格型号] f-rom {采购价格} order by [物料代码],[规格型号]) a"

Dim q As new QueryBuilder

q.TableName = "分析"

q.SelectString = sql

如上代码如何修正，请教老师！

 拷贝sql语句到窗口测试，看报什么错 http://www.foxtable.com/help/topics/1484.htm

看不懂你sql语句的意思，直接说你的需求

Dim sql As String = "Select a.*,(Select [报价] f rom {采购价格} b where a.[失效日期]=#2100-1-1#) as [报价] f rom {采购价格} a order by [物料代码],[规格型号]"

老师您好，

分组查询报价：   物料代码 规格型号为垂直分组，供应商为纵向分组，

这个是个简子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.table

 交叉统计？

 参考，不会做就上传具体例子。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68546&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68158&skin=0

 这个意思？

Dim g As New CrossTableBuilder("统计表1", DataTables("采购价格"))
g.HGroups.AddDef("物料代码")
g.HGroups.AddDef("规格型号")
g.VGroups.AddDef("供应商名称")
g.Totals.AddDef("报价", AggregateEnum.Min, "报价")
g.Build()
MainTable = Tables("统计表1")

是的，这个我也写过，因为不知道怎么加筛选条件，就改用SQL了；

我想加入条件  在复选框中筛选  例如 失效日期=2100-1-1  和选定几家供货商。

先条件筛选，再执行楼上代码。

 Dim g As New CrossTableBuilder("统计表1", DataTables("采购价格"))
g.HGroups.AddDef("物料代码")
g.HGroups.AddDef("规格型号")
g.VGroups.AddDef("供应商名称")
g.Totals.AddDef("报价", AggregateEnum.Min, "报价")

g.Filter = "失效日期=#2100-1-1#"
g.Build()
MainTable = Tables("统计表1")

好的，谢谢老师。