[QTP]dataTable的用法

昨天写了一个向dataTable中写数据的脚本，原来我是想让指针下移一行写一条数据，结果却出现了：一个循环迭代就增加三列。以此类推最后增加了50多列，汗。。。。
}A#Q_{!Rz B9aj0所幸的是，经过思考后把File---Settings中的Run选项中的DataTable iterations中的选项选择Run one iteration就可以了51Testing软件测试网{ i-zi0vpS[

:iB@8R6k7E:F r0以下程序的作用是：把环境变量中的进程变量都读出来写入DataTable中，用的方法是使用WSH中的Wscript.shell的Environment方法。

Option Explicit
e(oIClpwZu^5]0Dim oShell,oEnvProc,oEnvSys,oItem
M&j8E/OM{2FI0Dim arrEnv
U)W l2DT8_ F Vt$A0Dim nRow:nRow=151Testing软件测试网t EYG.T4a Q$x(Q9\
DataTable.GlobalSheet.AddParameter "类型",vbNullString
;W\0xe2\K0DataTable.GlobalSheet.AddParameter "变量",vbNullString
C |} e&` o,Dy2NJ0DataTable.GlobalSheet.AddParameter "值",vbNullStringSet Shell=createObject("Wscript.shell")51Testing软件测试网G(@'T F!~dYV@t1H
Set EnvProc=oShell.Environment("Process")
3^S [G)M*tS#Q0Reporter.ReportEvent micDone,"Proc Count",oEnvProc.count51Testing软件测试网iFa7t[H6k]
For each oItem in oEnvProc
6E)DK#m T2A]2mb [u;Z'Zb0 DataTable.GlobalSheet.setcurrentRow(nRow)
D7Wqc? W0 nRow=nRow+151Testing软件测试网"RQFZ{O$z2c
Reporter.ReportEvent micDone,nRow,"success"
\SmFm&F.a0 arrEnv=split(oItem,"=")
&hi? ^"q,P5y0 DataTable("类型",dtGlobalSheet)="Process"51Testing软件测试网)he5L.Y#g
 DataTable("变量",dtGlobalsheet)=arrEnv(0)51Testing软件测试网+WHE#c{k5r4EkO8}n
 DataTable("值",dtGlobalsheet)=arrEnv(1)
U7w&y"q,TM1{X0 next 
$dU2M#\BK0 Set Shell=nothing
K HBX4Q6w*K0 Set EnvProc=nothing51Testing软件测试网A"Z(kR$c
 Set EnvSys=nothing51Testing软件测试网\!j8J)F^:k!|

f2gb@)pkeEc0如果大家有什么问题请直接留言告诉我，或加我QQ进行讨论
S%q,SJNhB0QQ：45314877751Testing软件测试网:ll h3f^.u