ypeony 发表于 2006-11-14 15:31:04

值得好好看一下

cherry_cai 发表于 2007-3-20 11:16:47

我想请教一下:
我按照上面的计算器的例子做了一次, 但运行结束后,在结果里总显示下面的脚本Fail,
Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")

请问是什么原因呢?

j-r-j 发表于 2007-7-16 12:57:56

请帮忙看一下，一直应用不了数据呀

'$Include "sqautil.sbh"

Sub Main
    Dim Result As Integer
   
    Dim pass_id as Long
    Dim pass_Result as Long
    Dim strname as String
    Dim strPassWord as String
    Dim SQA_pass_Sequential as long
    Dim sqapassEOF as long

    'Initially Recorded: 2007-7-1518:14:41
    'Script Name: relogin
   
    Window SetContext, "Class=Shell_TrayWnd", ""
    Toolbar Click, "Text=Quick Launch;\;ItemText=启动 Internet Explorer 浏览器", "Coords=15,12"
   
    Window SetContext, "Caption=about:blank - Microsoft Internet Explorer", ""
    ComboEditBox Click, "ObjectIndex=2", "Coords=104,8"
    InputKeys "mail.tom.com{ENTER}"
    Browser NewPage,"HTMLTitle=google",""
    HTMLLink Click, "HTMLText=登录", ""
    Browser NewPage,"HTMLTitle=tom",""
    EditBox Click, "Name=email", "Coords=41,2"

    pass_id = SQADatapoolOpen ("pass", FALSE, SQA_pass_SEQUENTIAL, FALSE)
    pass_Result = SQADatapoolFetch (pass_id)

    while pass_Result <> sqaPassEOF
   
   
    pass_Result = SQADatapoolValue (pass_id, "name","strname")
    pass_Result = SQADatapoolValue (pass_id, "password", "strpassword")
    pass_Result = SQADatapoolFetch (pass_id)

   

   
    InputKeys strname
    EditBox Click, "Name=password", "Coords=63,5"
    InputKeys strpassword
    InputKeys "{ENTER}"
   
   
    wend
    pass_Result = SQADatapoolClose (pass_id)
   
   


End Sub


我是按照楼主的意思写的，可为什么每次回放时都没有显示数据呢？
请大家指导，谢谢。

ghost24 发表于 2007-8-29 16:02:40

pass_Result = SQADatapoolValue (pass_id, "name","strname")
    pass_Result = SQADatapoolValue (pass_id, "password", "strpassword")

strnamestrpassword这两个是变量，不能够用引号，去掉引号就好了

xbm2007 发表于 2007-10-30 15:16:10

翻来覆去就是这么几个脚本的代码，那么多高手，不能把你们的脚本发上了分享下阿

wonew1228 发表于 2008-1-22 20:59:47

好贴啊

guojunlin 发表于 2008-6-19 12:10:24

学习ing

dx0122 发表于 2008-6-28 10:23:36

不错，正在学习。

zhao_zsheng 发表于 2008-7-30 14:37:09

下面的这个看不懂

tt2008 发表于 2008-8-2 13:05:04

好

zmy5163 发表于 2009-2-12 17:14:15

写的很详细...顶贴

zjslovetyan 发表于 2009-2-27 11:01:28

很受用啊。

zjslovetyan 发表于 2009-2-27 11:01:47

\\images\\common\\eggs.gif

dajuanjuan87 发表于 2009-3-10 16:47:06

Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")

这句验证点括号里面集体是什么意思呀，，给说说，，labelvp是什么，，选择的时候选择的哪个，能发个截图吗？

dajuanjuan87 发表于 2009-3-10 16:50:41

::xsjsn:::

smh_dss 发表于 2009-10-22 16:18:05

很好，非常谢谢，这两天正在学习，顶！

:lol :handshake
页: 1 [2]
查看完整版本: 数据池（DATAPOOL）专题