我从wincc里读取来的好几个变量怎么在VB里组成一个数组WINCC_QCS_CD，个数少还能用array函数，如果70多个的话有什么更简便的方法吗，下面程序是能读到11个数据的。
Dim a(10) As Double
Dim s As Integer
For s = 0 To 10
a(s) = WINCC.getvalue("a" & s)
Next
WINCC_QCS_CD = Array(a(0), a(1), a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10))
问题补充：
因为我之后要用Tchart.series0.addarray 11，WINCC_QCD_CD，1来绘制曲线，要直接使用WINCC_QCS_CD整个数组
最佳答案
为什么不直接 Dim WINCC_QCS_CD(69) AS Double！
那你就不要定义数组了,直接给WINCC_QCS_CD赋值！
直接 WINCC_QCS_CD(i)=WINCC.get("a" )
补充
Dim s As Integer
redim WINCC_QCS_CD(70)
For s = 0 To 70
WINCC_QCS_CD(i)= WINCC.getvalue("a" & s)
Next
提问者对于答案的评价：
但这样子会显示WINCC_QCS_CD(s) = WINCC.getvalue("a" & s)溢出,而且之后TChart1.Series(0).AddArray 11, WINCC_QCS_CD, 1 ''将数据赋值给曲线 画不了曲线了
最佳答案作者回复:
我上面写错了，应该是For s = 0 To 69，溢出是不是因为你的数据太大了！
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc355127.html
微信扫一扫 
支付宝扫一扫 