主题：求助！

 拷贝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 [物料代码],[规格型号]"

 交叉统计？

 

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

 

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")

 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")

 你原本代码怎写？

g.Filter = "失效日期=#2100-1-1# and (供应商 in ('供应商1','供应商2','供应商3'))"

 看13楼

g.Filter = "失效日期=#2100-1-1# and (供应商 in ('" & e.Form.Controls("CheckedcomboBox1").Text.Replace(",", "','") & "'))"

e.Form.

 

改成

 

Forms("窗口1").