我的画面screen1中有一组文本，text1~text10 我的脚本是
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1,TristateFalse = 0
Dim i,j,vale(500),valen,ts,fs,f,n
Dim date1
Set fs = CreateObject("s cripting.FileSystemObject")
Set f = fs.GetFile("D:\fc\PRT" & "\" & "222" &".csv")
Set ts = f.OpenAsTextStream(1, TristateUseDefault)
For i = 1 To (50)
If ts.AtEndOfLine=True Then Exit For
vale(i)=ts.ReadLine
Next
If i>10 Then
n=10
Else
n=i-1
End If
For j=1 To n
valen = Split(vale(j),",",-1,1)
Set x =HMIRuntime.Screens("screen1").ScreenItems("date"&j)

x.text=valen(0)

Next

怎么调用以后没用？？？也没报错