运行报错,关于导出还有.....

hepburn

datatable.value("result",currentactionsheet)="success" 运行时有如 112.zip图的错误,要怎样设置

datatable.export("d:\data.xml"),导出的文件如data.xml,用什么格式可以看的懂啊,不会导出来的文件都是这样吧?

[ 本帖最后由 hepburn 于 2006-5-23 10:31 编辑 ]

xiaonan

第一个是你要在datatable表里设置个字段result,错误是说明.它找不到result这一列,然后第2个,你可以倒成excel的格式啊

hepburn

哦,谢谢.第一个,可是我加一个字段也没用,还是报同样的错误,第二个成功了,谢谢了

xiaonan

试试这样的写法,如我在Global里面第一行插入两个字段,一个是name,另一个是密码
datatable.setcurrentrow(1)
datatable.value("name","Global")="xiaonan"
datatable.value("passwd","Global")="1314"

hepburn

在测试报告里可以看xiaonan和1314,而在data table却没有,只是运行的一瞬间有,是这样么

还有一个问题要请教,请问在当前sheet可以么,因为一部分的action想循环执行

[ 本帖最后由 hepburn 于 2006-5-23 11:47 编辑 ]

xiaonan

试试吧,应该可以的

hepburn

Dim irow
irow=1
value = ...
datatable.setcurrentrow(ilow)
        If value="" then
        datatable.value("result","Global")="failed"
else
        datatable.value("result","Global")="success"
end if
irow=irow+1
datatable.export("d:\data.xls")
这样可以实现每个循环的结果都显示出来么,为什么我的不可以,还是只有一行,只有一个结果,应该出来四个

xiaonan

那你干吗不直接写到一个文本文件或者excel文件啊?

hepburn

请具体一点好么,我不是很明白你的意思.我先说清楚我的问题,value取四次数,判断四次,应该有四个结果,可是我的运行只有一个结果,可能是结果覆盖掉了,所以我就加了irow来记录,但是问题还没有解决,我这样写的代码对不对啊?谢谢了

你说的直接写到文本或excel文件是可以解决什么问题呢?呵呵,麻烦你了sdlkfj5

[ 本帖最后由 hepburn 于 2006-5-23 17:54 编辑 ]

xiaonan

我的意思就是把你每次的结果直接写到外部的一个文本文件,或者让QTP直接写到外部的一个EXCEL 文件啊,这样不是更好嘛,不用最后再导出来了

xiaonan

你可以看一下我的这个写文件的Function,我是写到C:\result1.txt里
Function writeorderno(orderno)
Dim fso, myfile
Set fso=CreateObject("Scripting.FileSystemObject")
Set myfile=fso.openTextFile("C:\result1.txt",8,false)
myfile.writeline orderno
myfile.close
End Function

hepburn

谢谢你啊，可是这个function我还不会用，你可以看看我上面的然后随便写点，应该我就没问题了．

hepburn

问题解决了,我直接调用了你的function,只是不是很懂,因为对一些属性和方法都不是很熟悉.

[ 本帖最后由 hepburn 于 2006-5-23 18:38 编辑 ]

xiaonan

呵呵.看看帮助吧,里面有讲的.这是VBsript里的东西.找点这方面的看看吧