大家做chart用什么控件呀??

解决方案 »

  1.   

    Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
        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
      

  2.   

    Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
        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
      

  3.   

    呵呵,谢谢
    通过ChartType属性可以改变显示方式
    不过要做这些,owc10中的chart控件更方便
    而且支持olap数据集
    可是这两个chart控件功能不能互补
    郁闷ing