标题: datatable中一行数据没办法新增,如何不利用这行数据,利用下行数据继续新增 [打印本页] 作者: ylm77ojn 时间: 2008-7-31 16:22 标题: datatable中一行数据没办法新增,如何不利用这行数据,利用下行数据继续新增 '注册普通节点
Dim num,i
num=DataTable.GetSheet("Action2 register").GetRowCount
for i =1 to num
wait(3)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("注册").Click
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set DataTable("code", dtLocalSheet)
wait(2)
Dim con
Dim record, testcode
Set con = createobject("adodb.connection")
con. open "DRIVER={Oracle in OraHome92};DSN=test;UID=U_ZNNWD=U_ZNN;DBQ=ORACLE_CFTEST;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"
Set record = createobject("adodb.recordset")
sql="select CODE from CS_WEBAPP_NODE"
record.open sql, con
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("验证代码").Click
'在数据库中检查代码是否存在
testcode = DataTable("code", "Action2 register")
wait(2)
If ( Instr(1, record("code"), testcode, 1) > 0 )Then
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Click
DataTable.GetSheet("Action2 register").SetNextRow
Dim code
Dim j
j=DataTable.GetCurrentRow
code =DataTable.GetSheet("Action2 register").GetParameter("code").ValueByRow(j)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set code
else
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Click
End if
record.close
Set record=nothing
con.close
Set con = nothing
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("name").Set DataTable("name", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("description").Set DataTable("description", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("vendor").Set DataTable("vendor", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("indexURL").Set DataTable("indexURL", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("appServer").Set DataTable("appServer", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("dbServer").Set DataTable("dbServer", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("version").Set DataTable("version", dtLocalSheet)
wait(2)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
wait(2)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
DataTable.GetSheet("Action2 register").SetNextRow
next
代码主要作用是注册普通节点
code栏位输入后,点击验证代码,如果库里有这代码了的,弹出提示框,提示重复了的,如果没有这代码,提示这代码不存在
现在第一行数据,可以新增
但到第2行数据时,因为库里有了code1,点击验证代码,会出现提示框:该代码重复
我现在想做个判断,如果这代码不存在,那就利用这行数据,继续新增
如果这代码重复,我要让其跳到下一行,利用下一行数据,继续新增
现在我的代码主要问题是,判断重复后,code栏位应该set code2,可是这里却是空的,set不进去
另外,name,description还是set为name1,desc1,明显是第一行的数据作者: ylm77ojn 时间: 2008-7-31 17:03
这个问题在自动化测试中是很普遍的,
datatable中的一行数据不能新增,继续换下一行数据新增
请坛里的高手解答下作者: walker1020 时间: 2008-8-7 09:56
If Browser("***).Page("***").Dialog("***).Exist Then
......
Else
....
End If作者: ylm77ojn 时间: 2008-8-7 13:27 标题: 回复 3# 的帖子 Browser("Welcome to CuteFramework2008").Page("Welcome to CuteFramework2008").WebButton("登录").Click
Browser("Welcome to CuteFramework2008").Page("首页").WebElement("WebTable").Click
Browser("Welcome to CuteFramework2008").Page("首页").Link("系统节点维护").Click
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("注册").Click
Dim CountNum
CountNum=DataTable.GetSheet("Action1").GetRowCount
For i=0 to CountNum-1
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set DataTable("code", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("name").Set DataTable("name", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_2").Click
wait(3)
If Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Exist Then
??????????????????????????????
else
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
wait(3)
End If
DataTable.GetSheet("Action1").SetNextRow
Next
datatable:
code name
ccccc ccccc
ccccc ccccc
ddddd ddddd作者: ylm77ojn 时间: 2008-8-7 14:52
Browser("Welcome to CuteFramework2008").Page("Welcome to CuteFramework2008").WebButton("登录").Click
Browser("Welcome to CuteFramework2008").Page("首页").WebElement("WebTable").Click
Browser("Welcome to CuteFramework2008").Page("首页").Link("系统节点维护").Click
Dim CountNum
CountNum=DataTable.GetSheet("Action1").GetRowCount
For i=1 to CountNum
Dim con
Dim record, testcode
Set con = createobject("adodb.connection")
con. open "DRIVER={Oracle in OraHome92};DSN=oracle_on_cftest;UID=U_YLMWD=U_YLM;DBQ=ORACLE_CFTEST ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"
Set record = createobject("adodb.recordset")
sql="select code from cs_webapp_node"
record.open sql, con
testcode =DataTable.GetSheet("Action1").GetParameter("code").ValueByRow(i)
If record("code")=testcode Then
DataTable.GetSheet("Action1").SetNextRow
else
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("注册").Click
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set DataTable("code", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("name").Set DataTable("name", dtLocalSheet)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_2").Click
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
wait(3)
DataTable.GetSheet("Action1").SetNextRow
End If
Next
record.close
Set record=nothing
con.close
Set con = nothing