作者ouwei ( 风之痕)
看板Visual_Basic
标题[VB6 ] 关於Mschart
时间Mon Apr 9 02:09:06 2007
Dim Grp1 As Variant
Dim Idx As Long
Dim MaxCnt As Long
Text12.Text = Text12.Text & Text4.Text & ","
Grp1 = Split(Text12.Text, ",")
MaxCnt = UBound(Grp1)
MaxCnt = MaxCnt + 1
MSChart1.ColumnCount = 4
MSChart1.RowCount = MaxCnt
Idx = 0
MSChart1.Column = 1
For Each dat In Grp1
Idx = Idx + 1
MSChart1.Row = Idx
MSChart1.Data = dat
Next
不知道为什麽在末端总是在零的数值
请大大帮忙一下
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.194.82