日历没办法选择

ylm77ojn

日历中选择日期后，qtp录制为：
Browser("首页").Page("首页_2").Link("Myday1").Click
Myday1对象的text属性值为8
Myday1对象的name属性值也为8
将两属性值都改为9，run脚本后，日历能设为9号，没有错误
现在想修改脚本，使日历日期选为当前系统日期＋1天
Dim Mydate
Dim Myday
Mydate=Date
Myday = Day(Mydate)+1
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "name", Myday
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "text", Myday
Browser("首页").Page("首页_2").Link("Myday1").Click

run该脚本后，日历没办法选择，后出现错误：Cannot identify the object "Myday1" (of class Link). Verify that this object's properties match an object currently displayed in your application.

陈能技

把SetTOProperty 改为SetROProperty 试试

ylm77ojn

Run Error 对象不支持此属性或方法: 'Browser(...).Page(...).Link(...).SetROProperty'
Line (19): "Browser("首页").Page("首页_2").Link("Myday1").SetROProperty "name",Myday".

陈能技

在
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "name", Myday
这句之前是否做了什么操作？

假装不在

你现在可以这么做：
1，你先确定下，代码这样写有问题吗？

Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "name", 9
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "text", 9
Browser("首页").Page("首页_2").Link("Myday1").Click
如果没问题，就是你的那个语句出错。如果有问题，而且问题和刚才的那个一样，哪么看看第2步。

2，先确定，界面上是否出现了多个有9的连接
dim links
set links=browser("首页").page("首页_2").object.links
aa=0
for i=0 to links.length
     if links(i).outerhtml="9" then
         aa=aa+1
     end if
next
msgbox aa
如果数量还是1个，再看看第3步，但如果有2个，你可以这样写写，添加一条：
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "index", 0

3，修改对象库中，这个links属性，可能的话，适当添加些属性进去，但不是越多越好哦。

ylm77ojn

Browser("首页").Page("首页_2").Image("s").Click
Dim Mydate
Dim Myday
Mydate = Date
Myday = Day(Mydate)+1
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "name",Myday
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "text",Myday
Browser("首页").Page("首页_2").Link("Myday1").Click

ylm77ojn

to 假装不在
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "name", 9
Browser("首页").Page("首页_2").Link("Myday1").SetTOProperty "text", 9
Browser("首页").Page("首页_2").Link("Myday1").Click
run脚本后，日历可以选为9号的
那就说明上面语句出错
不清楚哪出错

假装不在

那个SetTOProperty 你就别用了，这个是设置对象的静态属性。
QTP在运行时候，识别对象是识别对象的动态属性的，也就类似getroproperty中得到的属性一样。

你的代码可以这样写：
Browser("首页").Page("首页_2").Image("s").Click
Mydata=day(Mydate)+1
Browser("首页").Page("首页_2").Link("text:="&Mydata).Click

这样就可以了，也不用添加对象了。

ylm77ojn

多谢假装不在,解决了困扰我两天的问题.
我照你这样做,确实可以的.