有人会用vb中的mschart控件作图表吗？

Question

NewDyn.MoveFirst 
  NewDyn.MoveLast ‘此处为何MoveLast ？？

Answer 1

从第１条画到最后一条啊，
不然就只能画第1天金额的柱状图，以后都没有，不信你把movelast去掉就看出来了

Answer 2

基本搞定了，代码如下
Private Sub Form_Load()
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("D:\data2\db2.mdb")
    Set NewDyn = 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("金额")
         .ColumnCount = 1
         .ColumnLabel = "金额"
         NewDyn.MoveNext
        Next
       
    End With
    
    NewDyn.Close
End Sub
大家看看怎样？明天结帖了