你 可 以 使 用 VB自 己 帶 的 控 件 MSChart。 它 提 供 很 多 種 二 維 數 據 的 顯 示 方 式 ， 特 別 適 合 顯 示 統 計 數 據 。 
    首 先 在 VB菜 單 “ 工 程 |部 件 ” 中 選 中 “ Microsoft Chart Control” 項 。 此 時 在 工 具 面 板 中 出 現 MSChart控 件 圖 標 。 選 中 它 并 窗 體 上 放 置 MSChart控 件 ， 則 出 現 缺 省 狀 態 的 直 方 圖 。 設 其 ColumnCount屬 性 為 1（ 一 組 數 據 ） 。 下 面 的 代 碼 假 定 數 據 庫 example.mdb中 包 含 “ 日 期 ” 和 “ 數 據 ” 兩 個 字 段 。 
    Dim i As Integer 
    Dim NewDyn As Recordset 
    Dim OpenWs As Workspace 
    Dim OpenDB as DataBase 
    Set OpenWs = DBengine.Workspaces(0) 
    Set OpenDB = OpenWs.OpenDatabase("example.mdb") 
    Set NetDyn = OpenDB.OpenRecordset("select * from data", dbOpenSnapShot) 
    NewDyn.MoveLast 
    NewDyn.Movefirst 
    With MSChart1 
    　 　 .TitleText="直 方 圖 示 例 " 
    　 　 .RowCount = NewDyn.RecordCount 
    　 　 For i = 1 To NewDyn.RecordCount 
     　 　 .Row = i 
     　 　 .Data = NewDyn("數 據 ") 
     　 　 .Rowlabel = NewDyn("日 期 ") 
     　 　 NewDyn.MoveNext 
    　 　 Next 
    End With 
    NewDyn.Close 
    如 果 想 生 成 其 他 類 型 的 圖 形 ， 修 改 MSChart1的 ChartType屬 性 即 可 定 制 成 其 他 各 種 二 維 或 三 維 圖 表 :3D 條 形 圖 、 2D 條 形 圖 、 3D 折 線 圖 、 2D 折 線 圖 、 3D 面 積 圖 、 2D 面 積 圖 、 3D 階 梯 圖 、 2D 階 梯 圖 、 3D 組 合 圖 、 2D 組 合 圖 、 2D 餅 圖 和 2D XY 散 點 圖 。 
<END>