窗口统计在数据源为内部表时正常，项目改为局域网类型后在最后出现“未将对象引用设置到对象的实例。”错误，应该是出现在"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 = "类别,材料名称,规格型号"
加好友 
发短信
Post By：2014/7/11 15:19:00 [只看该作者]
