VB里有一个图表的控件,如果你有关于它的好例子，能给我发一个吗，本人感激不尽

Question

[email protected]

Answer 1

是mschart???
一下经过测试，引用dao3.6
Option Explicit
Private Values() As Variant
Private NumPoints As IntegerPrivate Sub LoadData()
Dim db As Database
Dim qdef As QueryDef
Dim rs As Recordset
Dim dbname As String
Dim i As Integer    ' 打开数据库
    dbname = App.Path
    If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
    dbname = dbname & "data.mdb"
    Set db = OpenDatabase(dbname)    ' 获得数据库记录
    Set qdef = db.CreateQueryDef("", _
        "SELECT 产品类别, 销售额 FROM 销售额")
    Set rs = qdef.OpenRecordset(dbOpenSnapshot)
    
    ' 查看数据库中记录数
    rs.MoveLast
    NumPoints = rs.RecordCount
    ReDim Values(1 To NumPoints, 1 To 2)    ' 加载数据
    rs.MoveFirst
    For i = 1 To NumPoints
        Values(i, 1) = rs!产品类别
        Values(i, 2) = rs!销售额 / 10000
        rs.MoveNext
    Next i
    rs.Close
    db.Close
End SubPrivate Sub Form_Load()
    With MSChart1
        .Top = 0
        .Left = 0
        .Width = Me.ScaleWidth
        .Height = Me.ScaleHeight
    End With
    '  读取数据
    LoadData
    '  使用MSChart控件显示数据
    MSChart1.ChartData = Values
End Sub数据库
table:销售额
field:产品类别，销售额

Answer 2

to snowerhuayun (雪人) 
已发送到[email protected],请查收