|
本帖最后由 风正一帆悬 于 2015-12-16 17:53 编辑
求助大神,帮看看,我的QTP代码有什么问题吗?
With Browser("慧鼎人力资源管理系统").Page("慧鼎人力资源管理系统")
.Frame("tb-page-frame").WebElement("新建").Click
For i=0 To 5
.Frame("tb-page-frame_2").Image("添加指标项").Click '添加5行
Next
.Frame("tb-page-frame_2").WebEdit("指标名称").Set "绩效指标指数"&xiao
.Frame("tb-page-frame_2").WebEdit("指标描述").Set "少年中国强"&xiao
'取出WebTable中所有数据
tRow = otable.RowCount '获取WebTable的行 数
print "tRow = " &tRow '打印WebTable的行数
tColumn = otable.ColumnCount(1) '获取WebTable的列 数
print "tColumn = " &tColumn '打印WebTable的列数
For i = 2 to tRow '依次输出每一行,每一列的元素
Dim Text
For j = 1 to tColumn-2
Set Text=otable.ChildItem(i,j,"WebEdit",0)
Select Case j
Case 1
Text.object.Value="指标评分标准准"&i
'MsgBox Text.GetROProperty("value")
wait 1
Case 2
Text.object.Value="100"
wait 1
End Select
Next
Next
.Frame("tb-page-frame_2").WebElement("保存").Click '保存以上信息
End With
填写时,一切正常,但是执行到保存后,页面就提示了输入不能为空了,请问这是为什么呢?
|
|