以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口统计代码在内部表转为外部数据源后出现异常？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53607)
--  作者：feiyu988
--  发布时间：2014/7/11 15:19:00
--  [求助]窗口统计代码在内部表转为外部数据源后出现异常？
窗口统计在数据源为内部表时正常，项目改为局域网类型后在最后出现“未将对象引用设置到对象的实例。”错误，应该是出现在"Tables("分站区统计_Table1").DataSource = b.BuildDataSource()"这一句，不知道是什么原因？

Dim sql As String = "Select  单位工程名称,编号,单位,备注,规格型号,材料名称,代号,类别,材质,{安装图零件明细}.数量*{分项图号}.数量 As [数量] From {分项图号} Inner JOIN {安装图零件明细} ON {安装图零件明细}.[二级图号] = {分项图号}.[二级图号]"

Dim b As New CrossTableBuilder("统计表1",sql)
b.HGroups.AddDef("类别")
b.HGroups.AddDef("编号")
b.HGroups.AddDef("材料名称")
b.HGroups.AddDef("代号")
b.HGroups.AddDef("规格型号")
b.HGroups.AddDef("材质")
b.HGroups.AddDef("备注")
b.HGroups.AddDef("单位")
b.VGroups.AddDef("单位工程名称")
b.Totals.AddDef("数量")
b.HorizontalTotal = True
\'b.VerticalTotal = True
Tables("分站区统计_Table1").DataSource = b.BuildDataSource()
Tables("分站区统计_Table1").Sort = "类别,材料名称,规格型号"
--  作者：有点甜
--  发布时间：2014/7/11 15:21:00
--  
Dim b As New CrossTableBuilder("统计表1",sql,"外部数据源名字")
--  作者：feiyu988
--  发布时间：2014/7/11 15:27:00
--  
OK，问题解决！另外请教一下，上例中生成的“单位工程名称‘各列怎样排序呀？
--  作者：有点甜
--  发布时间：2014/7/11 15:33:00
--  
以下是引用feiyu988在2014-7-11 15:27:00的发言：
OK，问题解决！另外请教一下，上例中生成的“单位工程名称‘各列怎样排序呀？

 

生成以后，对Tables("分站区统计_Table1")的列进行一下移动处理即可

 

http://www.foxtable.com/help/topics/1437.htm