DataWindow自动匹配多个Retrieve参数
1 创建一个继承自系统对象DataWindow的用户对象u_dw2 定义对象函数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)
case 2
return retrieve(aa_args, aa_args)
case 3
return retrieve(aa_args, aa_args, aa_args)
case 4
return retrieve(aa_args, aa_args, aa_args, aa_args)
case 5
return retrieve(aa_args, aa_args, aa_args, aa_args, aa_args)
case 6
return retrieve(aa_args, aa_args, aa_args, aa_args, aa_args, &
aa_args)
case 7
return retrieve(aa_args, aa_args, aa_args, aa_args, aa_args, &
aa_args, aa_args)
case 8
return retrieve(aa_args, aa_args, aa_args, aa_args, aa_args, &
aa_args, aa_args, aa_args)
case 9
return retrieve(aa_args, aa_args, aa_args, aa_args, aa_args, &
aa_args, aa_args, aa_args, aa_args)
case 10
return retrieve(aa_args, aa_args, aa_args, aa_args, aa_args, &
aa_args, aa_args, aa_args, aa_args, aa_args)
case else
return -1
end choose
return ll_retVal
4 在程序中调用方法如下：
ANY la_myArray[]
dw_1.setTransObject(sqlca)
la_myArray = "A String"
la_myArray = 200
dw_1.retrieve(la_myArray)
页:
[1]