大家做chart用什么控件呀??
解决方案 »
- 请问高手,老手,模拟游戏后台高手进
- Recordset的后面参数该怎样用?
- Data.Recordset.Delete报错,未找到方法或数据成员
- 求助"文件"菜单中"打开"菜单项的代码.有急用.谢谢
- vb 串口调试软件 源代码
- VB文件中的数据存储问题
- VB发布问题
- 请 问如何使窗体的最大化最小化按扭有效而关闭按钮处于无效状态?
- webbrwser打开本地ppt文件后,实现点击按钮翻页
- 小弟用VB6.0编程,怎样才能把一个窗口中的内容(文字或图形)取出来?小弟特急!!!
- ToolTipText属性--当鼠标在控件上面时,出现提示信息,如果提示信息太多,如何分几行显示?
- CloneCenter,仍有不明白的地方,请继续看“如何将指定的窗体设置成像IE的关于窗口一样,在弹出该窗体后一直获得当前程序的焦点?”
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select top 10 * from orders", CN, adOpenDynamic, adLockBatchOptimistic With MSChart1
.ChartType = VtChChartType2dLine
.TitleText = "折线图示例"
.RowCount = Rs.RecordCount
For i = 1 To Rs.RecordCount
.Row = i
.Data = Rs("freight")
.RowLabel = Rs("freight")
.ColumnCount = 1
.ColumnLabel = "freight"
Rs.MoveNext
Next End With
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select top 10 * from orders", CN, adOpenDynamic, adLockBatchOptimistic With MSChart1
.ChartType = VtChChartType2dLine
.TitleText = "折线图示例"
.RowCount = Rs.RecordCount
For i = 1 To Rs.RecordCount
.Row = i
.Data = Rs("freight")
.RowLabel = Rs("freight")
.ColumnCount = 1
.ColumnLabel = "freight"
Rs.MoveNext
Next End With
通过ChartType属性可以改变显示方式
不过要做这些,owc10中的chart控件更方便
而且支持olap数据集
可是这两个chart控件功能不能互补
郁闷ing