各位高手能否帮忙贴一些关于MSchart控件的用法，特别是数据库的！！

Question

各位高手能否帮忙贴一些关于MSchart控件的用法，特别是数据库的！！
谢谢！！
50分相送！！

Answer 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

Answer 2

MSChart1
        .ChartType 图表类型
        .Data  数据

Answer 3

没有问题
Private Sub Command1_Click()
  If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
     With MSChart1
        .ChartType = VtChChartType2dPie
        .ColumnCount = 2
        .RowCount = 1
        Dim XXX As Double
        XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
        .TitleText = "饼图示例 完成百分比"
        .Column = 1
        .Row = 1
        .Data = XXX
        .ColumnLabel = "完成百分比" & str(XXX) & "%"
        .Column = 2
        .Row = 1
        .Data = 100 - XXX
        .ColumnLabel = "剩余百分比" & str(100 - XXX) & "%"
     End With
  
  
'     With MSChart1
'        .ChartType = VtChChartType2dPie
'        .ColumnCount = 2
'        .RowCount = 1
'        Dim XXX As Double
'        XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
'        .TitleText = "饼图示例 完成百分比"
'        .Column = 1
'        .Row = 1
'        .Data = XXX
'        .ColumnLabel = "完成百分比" & Str(XXX) & "%"
'        .Column = 2
'        .Row = 1
'        .Data = 100 - XXX
'        .ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%"
'     End With
  
  End IfEnd Sub

Answer 4

Private Sub Command2_Click()
  If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
    With MSChart1
       .ChartType = VtChChartType2dBar
       .ColumnCount = 2
       .RowCount = MSHFlexGrid1.Rows - 1
       .RowCount = 1
       .TitleText = "直方图示例 本旬出口数量与去年同期对比值"
       Dim XXX, XXXX As Double
       For I = 1 To MSHFlexGrid1.Rows - 1
          XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
          XXXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
          .Column = 1
          .Row = 1
          .Data = XXX
          .Column = 2
          .Row = 1
          .Data = XXXX
          .RowLabel = MSHFlexGrid1.TextMatrix(I, 1)
          .RowLabel = ""
       Next I
       .Column = 1
       .ColumnLabel = "本旬出口数量"
       .Column = 2
       .ColumnLabel = "去年同期对比百分数"
    End With
  End If
End Sub