发表于:2005-09-01 14:26:00
1楼
你用一个窗体还是几个窗体啊?这个错误经常说明可能是你的OBJITEMS没有植,或者是你括号里面的有问题,你看看我的吧,我的是能运行的,而且我用的有些变量是其他窗体的,所以前面有窗体名字,你参考参考吧:
Set Module1.myitems = frmaddGroup.mygroup.OPCItems
For i = 1 To List1.ListCount
lclienthandles(i) = i
stritemids(i) = List1.List(i - 1)
Next i
Call myitems.AddItems(List1.ListCount, stritemids, lclienthandles, _
Module1.lserverhandles, rerrors)