QTP一些宝贵的资料(下).docxVIP

　第三部分　　15、Do while方法Dim i,RowCount 定义两个变量i=0RowCount=DataTable.GetSheet(Action1).GetRowCount 设置RowCount等于Action1中的行数。msgbox RowCountDo while irowcounti=i+1 第一次进入循环，执行这句后，i=1DataTable.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,unitTelxname=DataTable(p_Text, dtGlobalSheet) 从datatable中取值address=DataTable(p_Text1, dtGlobalSheet)unitTel=DataTable(p_Text2, dtGlobalSheet)Dim res,cmd,sqlSet res=createobject(adodb.recordset)Set cmd=createobject(mand)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 = 1sql=select addressid from address_list t where name =xnamesql=select addressid from address_list t where name =xnamesql=select addressid from address_li