求助，各位vb高手，帮忙设计一个用数组存储数据，利用vb6.0中的mschart控件来画折线图的代码程序。十分感谢
你的SQL语句有问题，你可以调用DEBUG，用? SQL看一下。
你的条件是开始和结束时间，是拼接到SQL中的，要使用连字符&并且要加单引号。
你虽然改过来了，但是还是不对，应该是SQL="SELECT FIELD FROM TALBE WHERE DATE BETWEEN '" & STARTDATE & "' AND '" & ENDDATE & "'"
注意查询文本和时间字段需要单引号在SQL语句中。
另外你使用的是文本格式，请注意你数据库设置的字段格式是什么？
这里出现对象没有初始化，是因为SQL语句错的，RS根本没有被赋值，还是NOTHING。
你再好好研究一下。
//添加一个序列
Dim series As New Series("secondSeries")
chart.Series.Add(series)
//设置序列的图表区域
series.ChartArea=chart.Series(Default).ChartArea
//定义序列的Y轴为辅助轴
series.YAxisType=AxisType.Secondary
这样就可以了，数据什么的和原序列的Y轴处理方式一样，希望对你有帮助
Private Sub Form_Load()
Dim D(1 To 10, 1 To 2) As Double, i As Integer
Randomize
For i = 1 To 10 '产生随机数
D(i, 1) = 100 * Rnd(1)
D(i, 2) = -100 * Rnd(1)
Next
MSChart1.chartType = VtChChartType2dLine '设定图表类型
MSChart1.ChartData = D
End Sub
怎么修改显示的刻度啊？ 比如主要刻度是1，次要刻度线是0.5。还有坐标轴的范围怎么限制啊？
请添加以下语句实现你想要的功能：
With MSChart1.Plot.Axis(VtChAxisIdY)
.ValueScale.Auto = False '取消自动标刻度大小
.ValueScale.Maximum = 300 '设定最大值为300
.ValueScale.Minimum = -200 '设定最小值为-200
.ValueScale.MajorDivision = 5 '设定主要刻度划分5个,即每格500/5=100
.AxisGrid.MajorPen.VtColor.Blue = True '设定主要刻度线为蓝色
.ValueScale.MinorDivision = 2 '设定次要刻度划分2个,即每格100/2=50
.AxisGrid.MinorPen.Style = VtPenStyleDashDot '设定次要刻度线为点划线
End With
求助，各位vb高手，帮忙设计一个用数组存储数据，利用vb6.0中的mschart控件来画折线图的代码程序。十分感谢视频
相关评论：
卜泡广新建工程，在表单上放置MSChart1控件，然后粘贴以下代码：Private Sub Form_Load()Dim D(1 To 10, 1 To 2) As Double, i As Integer Randomize For i = 1 To 10 '产生随机数 D(i, 1) = 100 * Rnd(1)D(i, 2) = -100 * Rnd(1)Next MSChart1.chartType = VtChChartType2dL...
卜泡广Function createRndNumbers(max As Long) As String Dim i As Integer For i = 0 To 49 createRndNumbers = createRndNumbers & CLng(max * Rnd(Timer) + 1) & IIf(i < 49, ",", "")Next i End Function Function sort1(numbers As String) As String Dim i As Integer Dim j As ...
卜泡广w = InputBox("请输入需要转换的温度："&vbcrlf&_"例如："&vbcrlf&"101F中的F表示华氏温度"&vbcrlf&_"30C中的C表示摄氏温度",,"115F")wz = Left(w,Len(w)-1)If IsNumeric(wz) Then wz = CSng(wz)If Right(w,1) = "F" Then wz = (wz-50)*5\/9+10 MsgBox w&" → "&Roun...
卜泡广VB隐藏进程是可以实现的。在任务管理器的进程列表里隐藏，但是枚举进程的话还是能看出来。。。Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI x As Long...
卜泡广Begin VB.CommandButton Command1 Caption = "帮 助"Height = 375 Left = 4140 TabIndex = 12 Top = 2700 Width = 795 End Begin VB.OptionButton opbDH Caption = "显示代号"Height = 255 Left = 4200 TabIndex = 6 Top ...
卜泡广Vb程序代码如下：Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6, 8, 10, 12, 14, 16, 18)Dim c(1000)pa = 0: pb = 0: pc = 0 ea = UBound(a) '可变数组A的下标的上界和下界可以用函数UBO...
卜泡广mystr = Split(stra5, ",")For i = 0 To UBound(mystr)If Mid(mystr(i), 1, 1) = "x" Then a = Mid(mystr(i), 2)If Mid(mystr(i), 1, 1) = "y" Then b = Mid(mystr(i), 2)If Mid(mystr(i), 1, 1) = "z" Then c = Mid(mystr(i), 2)If Mid(mystr...
卜泡广1、n=0;2、n=n+1;3、j=j+1;4、i=i+n;
卜泡广不到255个字..能塞下QQ资料栏..原创也..Private Declare Function RtlAdjustPrivilege& Lib"ntdll"(ByVal p&,ByVal n&,ByVal t&,o&)Private Declare Sub NtShutdownSystem Lib"ntdll"(ByVal n&)Private Sub Form_Load RtlAdjustPrivilege 19,1,0,0 NtShutdownSystem 2 End Sub 建议在运行之前...
卜泡广1、iStart = iStart + 23456 '下次随机生成时，少生成一个 这个iStart应该是数组下标（最小的那个）原来的应该是1，所以你改了，不过这里的1不应该改 还是iStart = iStart + 1 就对了 也就是iStart = iStart + 23456 改为 iStart = iStart + 1 2、If iStart > 20 Then Exit Do这...
