Foxtable(狐表) → 用户栏目 → 专家坐堂 → table 在不同的窗口类型下会出错


  共有1884人关注过本帖树形打印复制链接

主题：table 在不同的窗口类型下会出错
帅哥哟，离线，有人找我吗？
sloyy
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		table 在不同的窗口类型下会出错  发帖心情 Post By：2017/1/10 23:44:00 [只看该作者]

我做了一个图表,为了方便测试,窗口类型设为模式窗口,变换各种参数,结果一切正常,如图:


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20170110232035.png
图片点击可在新窗口打开查看

然后 我把窗口类型设为主窗口,变换参数,table 就出错了

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20170110232045.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20170110232095.png
图片点击可在新窗口打开查看






[此贴子已经被作者于2017/1/10 23:49:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2017/1/10 23:51:00 [只看该作者]

是不是变换参数前,要把 生成的统计表1 先删除掉?

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/11 8:36:00 [只看该作者]

删不删除都可以。生成统计表的代码贴出来看看

 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：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" )
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询