以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口统计代码在内部表转为外部数据源后出现异常?  (http://foxtable.net/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