想问问MSChart怎么和数据库联系起来用？

Question

对于VB中的任何一种控件来说，如果是能联系上数据库的
大都会有一个DATASOURCE属性，你试把MSCHART的DATASOURCE属性
设为对应的数据对象

Answer 1

ReDim Xdata(1 To 8, 1 To 7) As Variant
Xdata(1, 2) = "第一外贸"
Xdata(1, 3) = "航空"
Xdata(1, 4) = "Test 3"
Xdata(1, 5) = "Test 4"
Xdata(1, 6) = "Test 5"
Xdata(1, 7) = "合适软件"
'以上是图例的标示，你可动态添加Xdata(2, 1) = "1 月"
Xdata(2, 2) = 50
Xdata(2, 3) = 20
Xdata(2, 4) = 30
Xdata(2, 5) = 150
Xdata(2, 6) = 100
Xdata(2, 7) = 40Xdata(3, 1) = "2 月"
Xdata(3, 2) = 60
Xdata(3, 3) = 50
Xdata(3, 4) = 40
Xdata(3, 5) = 30
Xdata(3, 6) = 20
Xdata(3, 7) = 1.25PsBar1.Value = PsBar1.Value + 10
Xdata(4, 1) = "3 月"
Xdata(4, 2) = 160.5
Xdata(4, 3) = 160.2
Xdata(4, 4) = 160.3
Xdata(4, 5) = 160
Xdata(4, 6) = 160
Xdata(4, 7) = 160
Xdata(5, 1) = "4 月"
Xdata(5, 2) = 60
Xdata(5, 3) = 260
Xdata(5, 4) = 160
Xdata(5, 5) = 180
Xdata(5, 6) = 190
Xdata(5, 7) = 10.2
Xdata(6, 1) = "5 月"
Xdata(6, 2) = 60
Xdata(6, 3) = 26
Xdata(6, 4) = 16
Xdata(6, 5) = 18
Xdata(6, 6) = 19
Xdata(6, 7) = 102
Xdata(7, 1) = "6 月"
Xdata(7, 2) = 600
Xdata(7, 3) = 60
Xdata(7, 4) = 260
Xdata(7, 5) = 380
Xdata(7, 6) = 90
Xdata(7, 7) = 108
Xdata(8, 1) = "7 月"
Xdata(8, 2) = 60
Xdata(8, 3) = 260
Xdata(8, 4) = 160
Xdata(8, 5) = 180
Xdata(8, 6) = 190
Xdata(8, 7) = 10.2
MSChart1(0).ChartData = Xdata 
把MSCHART的DATASOURCE属性设为对应的数据对象,只能简单地显示所有记录，无法筛选、汇总。你多试试，上面的代码可扩展成将数据库的记录筛选、汇总后动态赋值到ChartData。
多加点分，我有问必答，有源代码贴出！！！！！！！！！！

Answer 2

谢谢 hwmys(合适软件)
有问题再找你了，我去试试分一定会加的，宽心

Answer 3

简单方法是：把你的数据汇总后到EXCEL中去，用EXCEL的图功能可以解决问题吗？

Answer 4

我有源码 带打印和打印预览的
[email protected]
哈哈 要给我 100分