安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

通过VBA代码动态设置Access报表Graph控件的数据源

2002-04-04 19:11:00
tmtony-Office交流网
原创
1724

问题:

如何通过程序动态设置报表中GRAPH控件的数据源?能否写出具体的设置语句 我的GRAPH就是微软OFFICE 2000?#28304;?#30340;。

tmtony

1. 初次尝试:

     G_1.RowSource=SQL语句不?#26032;?nbsp;  g_1是graph
     清空为 select fld1 as "空", fld2 as 0 from table1

     caijun64 回复 
     不行,我就是这样做的,但不行,出错,错误信息为:“运行时错误2455,你输入的表达式对属性rowsource的引用无效。”。

     注:我是在Access 2000中report的Open事件中对Graph控件的Rowsource属性赋SQL语句的。


2. 再次尝试:
    我?#19994;?#25105;原来的有图表的报表程序,发现我说错一件事。
    图表的rowsource在程序中是无法真正动态产生的(我为此找过很长一段时间啦,微软也没给过正确答?#29238;?#25105;)
    我现在所谓的动态生成?#24039;?#25104;它的源,即图表绑定到一个查询,你动态改变这个查询
    改变查询的方法:

      Dim mydb As dao.Database
      Dim qdf As dao.QueryDef
      Set mydb = CurrentDb
      Set qdf = mydb.QueryDefs("test_v")
      qdf.SQL = Form_SPCÊý¾Ý²éѯ.¿ØÖÆͼ.Form.¿ØÖÆͼ.RowSource
      qdf.Close


     这是 真正动态生成图表数据源,且用于网络环境,可针对不同用户生成不同的SQL,动态设定图表数据源。

3. 其它实?#22336;?#27861;: 
    还有?#22336;?#24335;就是先隐藏打开到设计状态,然后改变rowsource 后,再关闭打开到预览方式
    这是?#19994;?#26102;想的,但因为在MDB方式, 我觉得上面的方?#20132;?#26356;好。
    其它我还找不到好的方法

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.18
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假