高手指教QTP中如何把对象赋给变量？

jiamin_ff

我在写测试脚本碰到以下问题，
就是我写好了个包括参数的函数如  Function CheckTableGrid(aFindStr, aSwfTableObj, aColName）其中参数aSwfTableObj就是一对象 这样是为了方便我后的的取对象总行如aSwfTableObj.RowCount，aSwfTableObj.GetCellData(i, aColName)调用
问题是我定了一个变量dim a
对象赋给变量
a=SwfWindow("MainForm").SwfWindow("车种管理").SwfTable("SartoriusGridView")  这样的方试QTP就运行提示出错不支持了
SwfWindow("MainForm").SwfWindow("车种管理").SwfTable("SartoriusGridView")是我程序录制下来的一个对象也就是数据显示的表格SwfTable
然后调用 CheckTableGrid（789，a, "编号"）也没法执行了

david208

前面加个set  ,凡是对象的赋值都要加set，其他的无所谓，DIM都可以没有。
set a=SwfWindow("MainForm").SwfWindow("车种管理").SwfTable("SartoriusGridView")

zhangxinnow

对，加set

jiamin_ff

呵呵原来QTP要用SET方法的，明了。还搞了半天下面还有一小问题
Dim wdApp  As Object
Set wdApp = CreateObject(SwfWindow("MainForm").SwfWindow("车种管理").SwfTable("SartoriusGridView"))
我找VBscrip找出来的，本想试下这样给变量对象值的。问题是第一句就提示错了。

gchaser

Dim wdApp  As Object
修改成 Dim wdApp
或者去掉 Dim wdApp  As Object
在QTP中用dim是不能象vb那样指明变量的类型的。所以qtp中的dim没有多大作用，也就是起到增加可读性而已。