脚本精灵服务器引擎数据为空,求解，脚本单独能正常输出，写在控件事件里返回的都是空值...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Function sousuo

goods = Form1.InputBox1.Text

hang = 0

Dim LazyExcel,path,Index,Arr

path="D:\懒人办公插件\W-物品总表.xls"

Set LazyExcel = CreateObject("Lazy.LxjExcel")

//Set LazyWord = CreateObject("Lazy.LxjWord")

Index = LazyExcel.ExcelOpen(path, 1)

'写入随机数据用来测试

Arr = LazyExcel.ExcelRange(1, "B1:B1000", "模糊查找", goods, Index)//查找表格

For i = 1 To UBound(Arr)

Dim R, C

Call LazyExcel.AddToLoc(Arr(i), R, C)

TracePrint "行号为：" & R &"列号为：" & C

//Call LazyExcel.ExcelWrite(1,R,C,"TEST",Index)

seek=LazyExcel.ExcelReadText(1,R,C,Index) //读取单元格信息

TracePrint "单元格的内容为："&seek

ID=LazyExcel.ExcelReadText(1,R,C-1,Index)

Form1.Grid2.SetItemText hang, 0, seek //向表格中输入单元格内容

Form1.Grid2.SetItemText hang,1,ID //向表格第二列输入相对应ID

TracePrint "hangshuwei :"& hang

hang = hang +1

Next

End Function

***上面Function里的单独运行都能正常输出结果，一加入下面的InputBox1.Change 事件里调用Print的都是空值

Event Form1.InputBox1.Change //输入框改变时

If Len(Form1.InputBox1.Text) > 0 Then

Call sousuo

End If

End Event