小吳 VBQA 程式設計討論

我用shape append 要在datagrid中顯示可是顯示出來的欄位有
作者碼,作者名,作者名,書碼,書名 可是我不要子RecordSet物件中的作者名顯示出來要怎麼設定,請各位教一下小弟我
mysql="shape {select 作者碼,作者名 from 作者}"_
&"({select 作者名,書碼,書名 from 書籍}as book"_
　　　&"relate 作者名 to 作者名)"

我用shape append 要在mshflexgrid中顯示可是顯示出來的欄位有
作者碼,作者名,作者名,書碼,書名 可是我不要子RecordSet物件中的作者名顯示出來要怎麼設定,請各位教一下小弟我
mysql="shape {select 作者碼,作者名 from 作者}"_
&"({select 作者名,書碼,書名 from 書籍}as book"_
　　　&"relate 作者名 to 作者名)"

小弟建立了 階層式的元件 一共有五個class　分三層。沒有撰寫任何程式碼，只有宣告了幾個屬性和Collection ，每一個 子class 都是使用 collection 裝著的。
資料是使用 shape RS 讀出的 (rs 資料只有四筆)
今天早上小弟就試著將同一個 rs 的資料寫 十萬次 到元件中。
(rs 沒有開開關關)
小弟發現 記憶體耗得很兇，才跑了 五萬次 memory 就吃了 四百mb 。 請問 小弟應該要怎麼做才好呢？

資料庫中的主表、明細和子明細等多個有關聯的表單
作法一、可以使用Shape語法全部存放在「階層RS」
作法二、使用Shape 語法或是SQL語法抓出RS後，再把這些資料放到自已寫的 階層元件。
作法三、其他(還沒有想到)
這些中介的資料還會有因程式的需要而有額外的運算，排序、搜尋、排列組合。

小弟用excel vba 寫巨集時使用迴圈消除所有圖形物件：
for kkk = 1 to 100 step 1
ActiveSheet.Shapes("object " & kkk).Select
　　Selection.Cut
next

請問：
在Office中有個「繪圖工具列」，裡頭有個繪製圖形(快取圖案)的工具，請問是用VB中的哪一個工具來產生那些矩形與圓形的呢？
PS.我想那應該不是Shape控制項產生的!因為Shape控制項好像沒有Event，而我又需要產生像Click、Drag等Event來使用所產生的控制項，其需求就如同Office中的「繪圖工具列」的「快取圖案」一般...可以上色、可以拖曳...

我在EXCEL中錄製了一個巨集，是由EXCEL的表格中將表格中的資料，轉換成MSGRAPH的DATA，在錄製巨集的過程中，我調整過圖區的大小，將此巨集導入VB中執行，執行到提整區域的部分時總是出錯，（如果不調整圖區的大小，輸出一切正常），錯誤狀況如下，望能獲得指導，謝謝您！
ActiveSheet.Shapes("圖表 3").ScaleWidth 1.43,msoFalse,msoScaleFromBottomRight
ActiveSheet.Shapes("圖表 3").ScaleWidth 1.4,msoFalse,msoScaleFromTopLeft
Windows("123.xls").ScrollColumn=1
一、在執行的過程中，總是執行到這裡時（msoFalse）就跳出「變數未定義」

1.利用shape控制項設計一程式,每隔2秒由綠燈...黃燈...紅燈一直循環,同時會顯示訊息(綠燈行,黃燈小心,紅燈停),按下停止按鈕動作會停止,按下離開按鈕,程式就結束!!
2.設計一個簡易計算機,有乘,除,加,減的功能!!
3.

諸位先進
我想從 TblReq 的 ReqID -＞ 找到相關的 ProcID　並計算相關 Proc 的總數, 但 系統回我一個 datafield ProcCount Not found
實在不知道如何處理 請各位先進撥冗指導!!! 謝謝
' 設定 Shape 指令。
strShape = "SHAPE {SELECT * FROM TblReq Order By TvwPosition} As REQs " & _

以下程式請協助...
strShape="shape {select * from table1} " _
& "append ({ select * from table2 } " _
　　　 & "relate a1 to b1) as command1"
Set Conn = New ADODB.Connection