DataWindow自动匹配多个Retrieve参数

newease

免费乐捐，感谢支持

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)