通過VBA代碼動(dòng)態(tài)設(shè)置Access報(bào)錶Graph控件的數(shù)據(jù)源

問題：

如何通過程序動(dòng)態(tài)設(shè)置報(bào)錶中GRAPH控件的數(shù)據(jù)源？能否寫齣具體的設(shè)置語句 我的GRAPH就是微軟OFFICE 2000自帶的。

tmtony

1. 初次嚐試：

     G_1.RowSource=SQL語句不行嗎   g_1是graph
     清空爲(wèi) select fld1 as "空", fld2 as 0 from table1

     caijun64 回覆 
     不行，我就是這樣做的，但不行，齣錯(cuò)，錯(cuò)誤信息爲(wèi)：“運(yùn)行時(shí)錯(cuò)誤2455，你輸入的錶達(dá)式對(duì)屬性rowsource的引用無效。”。

     註：我是在Access 2000中report的Open事件中對(duì)Graph控件的Rowsource屬性賦SQL語句的。

2. 再次嚐試：
    我找到我原來的有圖錶的報(bào)錶程序，髮現(xiàn)我説錯(cuò)一件事。
    圖錶的rowsource在程序中是無法真正動(dòng)態(tài)産生的（我爲(wèi)此找過很長一段時(shí)間啦，微軟也沒給過正確答案給我）
    我現(xiàn)在所謂的動(dòng)態(tài)生成是生成牠的源，卽圖錶綁定到一箇查詢，你動(dòng)態(tài)改變這箇查詢
    改變查詢的方法：

      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