|
4#
楼主 |
发表于 2006-9-4 18:10:50
|
只看该作者
Dim k,m,n,p,q,d
k=browser("基站电度录入").Page("基站电度录入").WebTable("基站编号_2").RowCount
msgbox(k) '确定webtable的行数,来确定webedit的数量
For m=2 to k-1
'p=m-1
q= "UDGTable:_ctl"&m&":_ctl0"
'd=cstr(p)
' msgbox(p)
'n=browser("基站电度录入").Page("基站电度录入").WebEdit(d).GetTOProperty("innertext") '
browser("基站电度录入").Page("基站电度录入").WebEdit("name:="&q,"type:=text","html tag:=INPUT").set "1"
n=browser("基站电度录入").Page("基站电度录入").WebEdit("name:="&q,"index:="&p).GetTOProperty("innertext")
'使用正则表达式 失败了
'browser("预算分解下达").Page("预算分解下达").GetTOProperty
msgbox(n)
Next
我这样子写,或者加上index:=&p都是不可以的,显示找不到一致的对象Cannot identify the object "WebEdit" (of class WebEdit). Verify that this object's properties match an object currently displayed in your application. |
|