专家坐堂-编码填充Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  编码填充  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95227)

--  作者：zhangxl1964
--  发布时间：2017/1/13 15:26:00
--  编码填充

老师：你好！
请帮助查找一下下面的代码错误，没能提取数据。采用的是内部数据源

Dim gb As new SQLGroupTableBuilder("统计表1","入库单")

Dim dt As DataTable
gb.Groups.AddDef("大类")
gb.Groups.AddDef("小类")
gb.Groups.AddDef("存货编码")
gb.Groups.AddDef("物料名称")
gb.Groups.AddDef("物料规格")
gb.Groups.AddDef("物料单位")
gb.Groups.AddDef("品牌产地")
gb.Groups.AddDef("客户名称")
gb.Groups.AddDef("辅类")
gb.Totals.AddDef("数量")
gb.Totals.AddDef("金额")
gb.Filter = " {入库单}.日期 >= #" & QueryMonth & " # and {入库单}.日期 <= #" & JQueryMonth & " #"
  dt = gb.Build(True) \'生成一个DataTable

--  作者：有点色
--  发布时间：2017/1/13 15:43:00
--

先这样写

Dim gb As new SQLGroupTableBuilder("统计表1","入库单")

Dim dt As DataTable
gb.Groups.AddDef("大类")
gb.Groups.AddDef("小类")
gb.Groups.AddDef("存货编码")
gb.Groups.AddDef("物料名称")
gb.Groups.AddDef("物料规格")
gb.Groups.AddDef("物料单位")
gb.Groups.AddDef("品牌产地")
gb.Groups.AddDef("客户名称")
gb.Groups.AddDef("辅类")
gb.Totals.AddDef("数量")
gb.Totals.AddDef("金额")
gb.Build

再这样写

Dim gb As new SQLGroupTableBuilder("统计表1","入库单")

Dim dt As DataTable
gb.Groups.AddDef("大类")
gb.Groups.AddDef("小类")
gb.Totals.AddDef("数量")
gb.Build

--  作者：zhangxl1964
--  发布时间：2017/1/13 16:09:00
--
解决了，谢谢！
代码没错。