- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- table 在不同的窗口类型下会出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95134)
-- 发布时间：2017/1/10 23:44:00
-- table 在不同的窗口类型下会出错
我做了一个图表,为了方便测试,窗口类型设为模式窗口,变换各种参数,结果一切正常,如图:
此主题相关图片如下：搜狗截图20170110232035.png
然后 我把窗口类型设为主窗口,变换参数,table 就出错了
此主题相关图片如下：搜狗截图20170110232045.png
此主题相关图片如下：搜狗截图20170110232095.png
[此贴子已经被作者于2017/1/10 23:49:30编辑过]
-- 发布时间：2017/1/10 23:51:00
--
是不是变换参数前,要把 生成的统计表1 先删除掉?
-- 发布时间：2017/1/11 8:36:00
--
删不删除都可以。生成统计表的代码贴出来看看
-- 发布时间：2017/1/11 8:49:00
--
很简单,按 县区,乡镇,村屯 分三级,如果筛选值不为空,就按下一级分组
Dim FILTER As String
Filter=""
If SXZ="" Then \'筛选值为空
XX2=XX \'分组不变\'
Filter = "[项目名称]=\'" &XMMC & "\' AND [发放年度]=" &FFND
Else
If XX="县区" Then \'原分组\'
XX2="乡镇" \'现分组\'
Filter = "[项目名称]=\'" &XMMC & "\' AND [发放年度]=" &FFND & " And [县区]= \'" &SXZ & "\'"
Else
XX2="村屯"
Filter = "[项目名称]=\'" &XMMC & "\' AND [发放年度]=" &FFND & " And [乡镇]= \'" &SXZ & "\'"
End If
End If
DataTables("民生惠农数据标准格式").LoadFilter=filter
DataTables("民生惠农数据标准格式").Load
Dim g As New GroupTableBuilder("统计表1", DataTables("民生惠农数据标准格式"))
g.Groups.AddDef(XX2)
g.Totals.AddDef("金额")
g.Totals.AddDef("发放金额")
g.Totals.AddDef("验收或发放金额")
g.SubTotal = True
g.Decimals = 2
g.Build()
Tables("图表_TABLE1").DataSource =DataTables("统计表1" )
-- 发布时间：2017/1/11 9:00:00
--
Dim g As New GroupTableBuilder("统计表1", DataTables("民生惠农数据标准格式"))
g.Groups.AddDef(XX2)
g.Totals.AddDef("金额")
g.Totals.AddDef("发放金额")
g.Totals.AddDef("验收或发放金额")
g.SubTotal = True
g.Decimals = 2
Tables("图表_TABLE1").DataSource =g.BuildDataSource