标题: 总是提示缺少对象 [打印本页] 作者: superliming 时间: 2010-2-4 09:36 标题: 总是提示缺少对象 row=Browser("MOSTsView").Page("MOSTsView_3").Frame("mainFrame_5").WebTable("级别状态告警优先级告警类别告警解释告警逻辑分类告警逻辑子类重").RowCount
col=Browser("MOSTsView").Page("MOSTsView_3").Frame("mainFrame_5").WebTable("级别状态告警优先级告警类别告警解释告警逻辑分类告警逻辑子类重").ColumnCount(row)
Set objchkbox=Browser("MOSTsView").Page("MOSTsView_3").Frame("mainFrame_5").WebTable("级别状态告警优先级告警类别告警解释告警逻辑分类告警逻辑子类重").ChildItem(row,col,"checkbox",0)
For i=0 to row-1
For j=0 to col-1
objchkbox.set "ON"
col=Browser("MOSTsView").Page("MOSTsView_3").Frame("mainFrame_5").WebTable("级别状态告警优先级告警类别告警解释告警逻辑分类告警逻辑子类重").ColumnCount(i)
For j=1 to col
num=Browser("MOSTsView").Page("MOSTsView_3").Frame("mainFrame_5").WebTable("级别状态告警优先级告警类别告警解释告警逻辑分类告警逻辑子类重").ChildItemCount(i,j,"checkbox")
mytext="i:"+Cstr(i)+" j:"+Cstr(j)+" 有"+Cstr(num)+"个CheckBox"
MSGbox mytext