QTP中在DataTable添加一个Mysheet

M|8nXp%c0今天早上看了一个PPT关于QTP的，作者说他的程序可以直接在QTP中跑，我copy过去后不正确，想来可能因为中英文的问题吧。。。自己重新调了一下。废话不多说了，下面就是程序了，我直接从QTP的专家视图中剪出来的。大家一起学习

CEu,neDW0Set Wshshell=createobject("Wscript.shell")
|c|9@!V)Np
U$h'g(P0Set Wshexec=WshShell.Exec("c:\windows\system32\calc.exe")51Testing软件测试网7Ot.DJ
a5^?[%O+EO
Set desc=description.Create51Testing软件测试网:k)uy(KGAhAee
Dim i51Testing软件测试网QO5\g!LB,{JKK'}
For i=1 to 10
(Wt8RC
\@p0 desc("text").value=i
UT(mc5mo"M0 If desc("text").value=10 Then51Testing软件测试网)[%p&rERzH8O|
  '最后输入的是10所以先点击1按钮，再用i-10为0，再来点击0按钮从而输入的是10
y4JZ:}!f!G3w(X)K0  window("text:=计算器").winButton("text:=1").click51Testing软件测试网Q|K'T!i,H?
  desc("text").value=i-1051Testing软件测试网L
Z{(~ X
  window("text:=计算器").winButton(desc).Click
(@"Y&tvH X1s0  else51Testing软件测试网 Na1D)R2M
  window("text:=计算器").winButton(desc).click51Testing软件测试网h2`[*tYG;A.B*z(L
 End if
3NEN7D^M@%wl0 window ("text:=计算器").winButton("window id:=92").Click
z{
{8?r;g l0 '此处我使用“+”的nativeclass,text属性都找不到这个对象，所以还是借鉴作者的用法，用了window id属性51Testing软件测试网#r,d"?:q$]ny-Wo(K
 Next51Testing软件测试网
[D
L8F6yI{+l7U
   sum=window("text:=计算器").WinEdit("window id:=403").GetVisibleText51Testing软件测试网*b
\DG-r\Y^{!R
 '读取计算器上方显示栏的值51Testing软件测试网7bB$g4c*w O
   time1=now()51Testing软件测试网 Oy Rh;m-JQ&fB
   variable= DataTable.AddSheet("mysheet").AddParameter("sum",sum)
8X^']a'`:GT0   '添加一个表格名为mysheet，并在mysheet中添加一列,列名为sum，值为1----10的和51Testing软件测试网g7lZC1Jw[
   '在此处如果使用msgbox直接打印variable也可以直接打印出来sum的值，可是我想试一下另一种方法就用了下面的那句话
*i Y4vdk;I0   row = DataTable.value("sum","mysheet")51Testing软件测试网 _toIH3a r
   msgbox row51Testing软件测试网6T,xx?|/U
   Wshexec.Terminate() 51Testing软件测试网1L:Th-}5XZ

刚开始运行完了以后我去查找datatable中的mysheet没找到，感觉很奇怪，看了帮助以后发现，这个datatable中的mysheet是运行时产生的一个sheet所以并不会最终保留下来。用msgbox row可以证明这个sheet真的生成过。所以我这么理解的，如果有错还请大家指正