麻烦大家看看下面的代码对吗?能否用MSChart显示MSHFlexGrid中指定的行(上下)和列(左右),谢谢谢谢
Private Sub Command2_Click()
Dim a As Integer
a = 2
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
With MSChart1
.chartType = VtChChartType2dBar
.ColumnCount = 3
.RowCount = MSHFlexGrid1.Rows - 1
.RowCount = 1
.TitleText = "直方图示例 本旬出口数量与去年同期对比值"
Dim XXX, XXXX, XXXXX As Double
' For I = 1 To MSHFlexGrid1.Rows - 1
XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.col, a .Row, 2))
XXXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.col, a .Row, 3))
XXXXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.col, a .Row, 4))
.Column = 1
.Row = 1
.Data = XXX
.Column = 2
.Row = 1
.Data = XXXX
.Column = 3
.Row = 1
.Data = XXXXX
.RowLabel = "第一月"
' Next I
.Column = 1
.ColumnLabel = "成本"
.Column = 2
.ColumnLabel = "产量"
.Column = 3
.ColumnLabel = "利润"
If a < MSHFlexGrid1.Col - 1 Then
a = a + 1
End If
End With
End If
End Sub