|
1 创建一个继承自系统对象DataWindow的用户对象u_dw
2 定义对象函数retrieve，添加函数参数a_argus[]，类型为ANY，函数返回值为Long
3 加入如下代码：（假设 retrieve参数数目最大为10）
long ll_retVal
ll_retVal = 0
choose case upperBound(aa_args)
case 1
return retrieve(aa_args[1])
case 2
return retrieve(aa_args[1], aa_args[2])
case 3
return retrieve(aa_args[1], aa_args[2], aa_args[3])
case 4
return retrieve(aa_args[1], aa_args[2], aa_args[3], aa_args[4])
case 5
return retrieve(aa_args[1], aa_args[2], aa_args[3], aa_args[4], aa_args[5])
case 6
return retrieve(aa_args[1], aa_args[2], aa_args[3], aa_args[4], aa_args[5], &
aa_args[6])
case 7
return retrieve(aa_args[1], aa_args[2], aa_args[3], aa_args[4], aa_args[5], &
aa_args[6], aa_args[7])
case 8
return retrieve(aa_args[1], aa_args[2], aa_args[3], aa_args[4], aa_args[5], &
aa_args[6], aa_args[7], aa_args[8])
case 9
return retrieve(aa_args[1], aa_args[2], aa_args[3], aa_args[4], aa_args[5], &
aa_args[6], aa_args[7], aa_args[8], aa_args[9])
case 10
return retrieve(aa_args[1], aa_args[2], aa_args[3], aa_args[4], aa_args[5], &
aa_args[6], aa_args[7], aa_args[8], aa_args[9], aa_args[10])
case else
return -1
end choose
return ll_retVal
4 在程序中调用方法如下：
ANY la_myArray[]
dw_1.setTransObject(sqlca)
la_myArray[1] = "A String"
la_myArray[2] = 200
dw_1.retrieve(la_myArray)
|