[QTP]dataTable的用法

X%n{ kI?0昨天写了一个向dataTable中写数据的脚本，原来我是想让指针下移一行写一条数据，结果却出现了：一个循环迭代就增加三列。以此类推最后增加了50多列，汗。。。。
RD/C;{c+v;DQ0所幸的是，经过思考后把File---Settings中的Run选项中的DataTable iterations中的选项选择Run one iteration就可以了51Testing软件测试网su'D0r\r

以下程序的作用是：把环境变量中的进程变量都读出来写入DataTable中，用的方法是使用WSH中的Wscript.shell的Environment方法。51Testing软件测试网wuQf4W_-p'PI

Option Explicit
+Z9Z7{x'@8_6y [7Y,|0Dim oShell,oEnvProc,oEnvSys,oItem51Testing软件测试网Z'NN9c$YW"l
Dim arrEnv
T/O])i9b0Dim nRow:nRow=1
B#J2nP9Ib-Zg0DataTable.GlobalSheet.AddParameter "类型",vbNullString51Testing软件测试网 v0? ge
\T
DataTable.GlobalSheet.AddParameter "变量",vbNullString
j^
ee%y Q0DataTable.GlobalSheet.AddParameter "值",vbNullStringSet Shell=createObject("Wscript.shell")
;L/[a-mB#k8u H0Set EnvProc=oShell.Environment("Process")
|8q8A'Km%[,?s.WK|2g0Reporter.ReportEvent micDone,"Proc Count",oEnvProc.count51Testing软件测试网TN(TV5b
For each oItem in oEnvProc
#^ ?BArt a0 DataTable.GlobalSheet.setcurrentRow(nRow)
GD2l@ u].~2SQO/L0 nRow=nRow+151Testing软件测试网1Su+p%hF8q
Reporter.ReportEvent micDone,nRow,"success"
rW(W7Nf9|!~0 arrEnv=split(oItem,"=")
Lc4s$E,Sa'i`,hJ0 DataTable("类型",dtGlobalSheet)="Process"
;U+p$~6v)R"^Ee4qz0 DataTable("变量",dtGlobalsheet)=arrEnv(0)
0w#[ KSg6]\-D0 DataTable("值",dtGlobalsheet)=arrEnv(1)51Testing软件测试网1V}C1RT!pv.QINL&_ |
q
 next 
D)_
J xNi%h\\0 Set Shell=nothing
@C3h,U9?(@t}0 Set EnvProc=nothing
*a(q+r"NpTL0 Set EnvSys=nothing

如果大家有什么问题请直接留言告诉我，或加我QQ进行讨论51Testing软件测试网b;tj4k)A7}O
r$N
QQ：453148777
e$OC'G4IYxP0 51Testing软件测试网qwawLo