VB6的MSchart控件中如何画多条曲线

Private Sub Form_Load()MSChart1.chartType = VtChChartType2dLineDim arrValues()ReDim arrValues(1 To 5, 1 To 6)Dim i As IntegerFor i = 1 To 5 arrValues(i, 1) = "t" & i 'x轴 arrValues(i, 2) = 0 + Rnd * 100 '第一条线 arrValues(i, 3) = 0 + ...

Private Sub Form_Load()MSChart1.chartType = VtChChartType2dLineDim arrValues()ReDim arrValues(1 To 5, 1 To 6)Dim i As IntegerFor i = 1 To 5 arrValues(i, 1) = "t" & i 'x轴 arrValues(i, 2) = 0 + Rnd * 100 '第一条线 arrValues(i, 3) = 0 + ...

连接数据库VB6.0中的MSChart控件是一个功能强大的高级图表工具,拥有丰富的图表绘制功能,可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。

改为 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="C:\Documents and Settings\Administrator\桌面\vb程序\tgthtn.mdb"

把两个下标交换位置，不行！不符合MSChart1.ChartData 对数据的要求！只好另外定义一个二维动态数组MyData2，在Timer1_Timer事件中动态定义，并把MyData中的前面的数据复制到MyData2中，再把MyData2赋给MSChart1.ChartData 。操作如下：（1）在窗体的通用段中增加如下定义：Dim MyData2() As ...

//添加一个序列 Dim series As New Series("secondSeries")chart.Series.Add(series)//设置序列的图表区域 series.ChartArea=chart.Series(Default).ChartArea //定义序列的Y轴为辅助轴 series.YAxisType=AxisType.Secondary 这样就可以了，数据什么的和原序列的Y轴处理方式一样，希望对你有帮助 ...

ChartShowResult '显示曲线图 End Sub Private Sub ChartShowResult() '显示曲线图 Dim WinNum As String Dim WinNumArr(2) As Integer Dim StrIssue As String Dim RowI As Integer Dim SumJO As Integer, SumDX As Integer RowI = RowCount If rs.RecordCount = 0 Then Exit Sub ReDim ss(...

右键点击图标-源数据-数据区域-系列产-原选着行选择列 满意请采纳

你的条件是开始和结束时间，是拼接到SQL中的，要使用连字符&并且要加单引号。你虽然改过来了，但是还是不对，应该是SQL="SELECT FIELD FROM TALBE WHERE DATE BETWEEN '" & STARTDATE & "' AND '" & ENDDATE & "'"注意查询文本和时间字段需要单引号在SQL语句中。另外你使用的是文本格式，请...

MyData1(i, 0) = i MyData1(i, 1) = 700 MSChart1.ChartData = MyData1 '数据获取