Question

大神们帮我看下这串按键精灵的代码为什么会提示第7行和第18行类型不匹配呢？

DimEnv i(100), c
BeginThread ID2
BeginThread ID1
Sub ID2
TracePrint "开始"
a = 1
While c = 1 and i(a) <> 1
TracePrint i(a)
a = a + 1
Wend
End Sub
Sub ID1
Call Plugin.Office.OpenXls("E:\360data\重要数据\桌面\测试.xls")
a = 1
Do
i(a) = Plugin.Office.ReadXls(1, a, 1)
a = a + 1
Loop Until i(a) = 1
c = 1
Call Plugin.Office.CloseXls()
End Sub

Answer 1

你的语句有逻辑错误。如果-------则------（没有否则）----
也就是说脚本运行到则是循环状态，但是到了否则就退出循环了。所以你要做一个否则的运算。让他不要退出循环啊。
Else
RestartScript
条件结束上面加上这句

追问

我想实现的是ID1和ID2同时启动，之后ID2运行到“TracePrint "开始"”这句的时候，因为ID1还没有将excel表里的数据全部输入到数组里面，所以c1，所以会暂停那边，等到ID1全部走完（数据全部输入到数组里面）until i(a)=1,c就等于1了。之后ID2再继续走。
我是这么个思路，但是不懂哪边错了。