第三部分
15、Do while方法
Dim i,RowCount '定义两个变量 i=0 RowCount=DataTable.GetSheet("Action1").GetRowCount '设置RowCount等于Action1中的行数。 msgbox RowCount Do while i<rowcount i=i+1 '第一次进入循环,执行这句后,i=1 'DataTable.GetSheet("Action1").SetCurrentRow(i) 这句话被我注释掉了,正确的写法应该是下面这样,分开写。 datatable.getsheet("Action1") datatable.setcurrentrow(i) ----xunhuanti---- loop |
16、取对象属性(Property)值
Dim usname
usname =Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").GetRoProperty("Value") '获取对象属性(Property)值,如Property为Value
MsgBox usname
17、取得要删除的id,并删除
'url在查看该新增记录的信息页面对象中取得,所以录制的时候,登记,查看(修改),删除
Dim strUserid,id,strId
id=Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_4").GetROProperty("url") '在url这个属性值中存在我需要删除记录的ID信息
strId=Mid (id,instr(60,id,"=")+1) '这一步是把需要的id值取了出来,例如:strId=Mid (id,instr(1,id,"=")+1)
strUserid =strId 'strUserid是我要删除的记录前的复选框属性值当中的ID信息
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("value:="&strUserid).Set "ON" 这样就把想删除的记录选中了。
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebButton("删除").Click '这样就删除掉啦,呵呵
17.2通过数据库取得id值,并赋值进行删除
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").Set DataTable("p_Text", dtGlobalSheet) Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.address").Set DataTable("p_Text1", dtGlobalSheet) Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.unitTel").Set DataTable("p_Text2", dtGlobalSheet)
Dim xname,address,unitTel xname=DataTable("p_Text", dtGlobalSheet) '从datatable中取值 address=DataTable("p_Text1", dtGlobalSheet) unitTel=DataTable("p_Text2", dtGlobalSheet)
Dim res,cmd,sql Set res=createobject("adodb.recordset") Set cmd=createobject("adodb.command") Cmd.activeconnection="DRIVER={Oracle in OraHome92};SERVER=HKORACLE;UID=USER22;PWD=ZJLH;DBQ=HKORACLE;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;" Cmd.CommandType = 1 'sql="select addressid from address_list t where name ='"&xname&"'" 'sql="select addressid from address_list t where name ='"&xname&"' sql="select addressid from address_list t where name ='"&xname&"' and address='"&address&"' and unitTel='"&unitTel&"'" Cmd.CommandText = sql Set res = Cmd.Execute() MsgBox res(0) '打印res(0) DataTable("addressid", dtGlobalSheet)=Cstr(res(0)) '输出值到datatable中 Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("value:="&res(0)).Set "ON" Set res = nothing Set cmd.ActiveConnection = nothing Set Cmd= nothing |