51Testing软件测试论坛

标题: 用QTP为文本框输入值之后，保存提示空值 [打印本页]

作者: 风正一帆悬 时间: 2015-12-16 17:42
标题: 用QTP为文本框输入值之后，保存提示空值
本帖最后由风正一帆悬于 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

填写时，一切正常，但是执行到保存后，页面就提示了输入不能为空了，请问这是为什么呢？[attach]98801[/attach]

作者: 风正一帆悬 时间: 2015-12-17 10:03
跪求大神儿指点啊！

作者: lgh75560 时间: 2015-12-17 10:59
Text.object.Value="100" 赋值后，这个控件添加个click属性看看
就是赋值后，点击一下这个控件，使控件获得焦点

我只是猜的，可以尝试一下、

作者: 风正一帆悬 时间: 2015-12-17 11:38

lgh75560 发表于 2015-12-17 10:59
Text.object.Value="100" 赋值后，这个控件添加个click属性看看
就是赋值后，点击一下这个控件，使控件获 ...

试了一下，添加了Text.Click 之后，还是一样的提示。。。不过依然谢谢你的解答。

作者: 赵佳乐SMILE 时间: 2015-12-17 11:56
用 Text.object.Value 去赋值，本身赋的就是假值，不那么可靠
换换innerText等其他属性
或者不用描述性编程直接webeidt去set值
或者换个流程，先把值赋进去，在点击添加一行

作者: jingzizx 时间: 2015-12-17 13:40
用webedit.set不行吗

作者: 风正一帆悬 时间: 2015-12-17 13:43

jingzizx 发表于 2015-12-17 13:40
用webedit.set不行吗

之前用的就是Set，同样的不好用，真是好诡异。。。难道是因为每一行文本框都是动态添加的缘故？因为那个For循环，就是点击了5次那个添加行列的绿色加号图标。

作者: 风正一帆悬 时间: 2015-12-18 09:24

赵佳乐SMILE 发表于 2015-12-17 11:56
用 Text.object.Value 去赋值，本身赋的就是假值，不那么可靠
换换innerText等其他属性
或者不用描述 ...

放弃描述WebTable了，改用描述WebEdit就好了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)