很菜的问题,用mschart画一条线
8slob 2004-10-14 03:18:14 代码如下为什么显示的时候什么也没有呢?代码如下:
Private Sub drawLine(key As String)
Dim tmpI As Integer
Dim tmpJ As Integer
With MSChart
.ShowLegend = True '显示图例
.Stacking = False '叠置系列
.TitleText = "指标计划值与实际值对比图" '图表标题
'.FootnoteText = "hehe" '页脚
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 30
.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 30 \ 5
.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 5
.Plot.Axis(VtChAxisIdY2).AxisScale.Hide = True
.Plot.Axis(VtChAxisIdY).AxisTitle.TextLayout.Orientation = VtOrientationVertical
'.Plot.Axis(VtChAxisIdY).AxisTitle.TextLayout.Orientation = VtOrientationUp
.Plot.Axis(VtChAxisIdY).AxisTitle.Text = "sdfasd"
.ColumnCount = 1
.RowCount = 2
If rs.State = 1 Then
rs.Close
End If
Dim id
id = Right(key, Len(key) - 1)
rs.Open "SELECT * FROM project_criterion where criterionID = " & id, conn
.Row = 1
.RowLabel = "计划值"
.Data = Val(rs("planValue"))
.Row = 2
.RowLabel = "实际值"
.Data = Val(rs("factValue"))
'.DataGrid.ColumnLabel(2, 1) = "LLLLLLLLLLLLLLLLLLLLL"
'.DataGrid.RowLabel(2, 1) = "cccccc"
'.Enabled = False
'MsgBox .ActiveSeriesCount '图表系列数(即图例个数)
End With
End Sub