[VB.NET]VB REDIM

VB REDIM

有段儿VB的代码，在参数设定初始值时，不知道它在做什么：

ReDim P_Value(0 To UBound(P_Name), 0 To Lotnum - 1) As Variant

P_Value(0, 0) = OrderNo

P_Value(1, 0) = WorkNo

P_Value(2, 0) = Dtl_No(0)

For j = 0 To Lotnum - 1

P_Value(3, j) = LotNo(j)

Next j

P_Value(4, 0) = Lotnum

ReDim P_Obj(0 To UBound(P_Name)) As Object

ReDim P_Flg(0 To UBound(P_Name)) As Boolean

For i = 0 To UBound(P_Name)

P_Flg(i) = False

If IsDBNull(P_Array(i)) Then

If Not CMNOracleParameters_Add(CStr(P_Name(i)), P_Value(i, 0), CInt(P_IO(i)), CInt(P_Type(i)), P_Obj(i)) Then

ErrCode = RTN_ORA

GoTo FUNC_ERR

End If

Else

ReDim P_WorkArray(0 To P_Array(i) - 1)

For j = 0 To P_Array(i) - 1

P_WorkArray(j) = P_Value(i, j)

Next j

If Not CMNOracleParameters_AddTable(CStr(P_Name(i)), CInt(P_IO(i)), CInt(P_Type(i)), CInt(P_Array(i)), CInt(P_Element(i)), P_WorkArray(), P_Obj(i)) Then

ErrCode = RTN_ORA

GoTo FUNC_ERR

End If

End If

P_Flg(i) = True

Next i

这段儿代码转到应该怎样做，ReDim P_Value(0 To UBound(P_Name), 0 To Lotnum - 1)改怎么转，下面怎么使用

__________________________________________________________________________

array.resize

ding

__________________________________________________________________________

lz 去代码转换网站试试吧 应该是可以的

__________________________________________________________________________

ReDim P_Value(0 To UBound(P_Name), 0 To Lotnum - 1)

在.Net中也是这个用法呀，不需要转换的吧。

__________________________________________________________________________

ReDim P_Value(0 To UBound(P_Name), 0 To Lotnum - 1) 会报错

__________________________________________________________________________

什么错误？

Dim P_Value() as object

ReDim P_Value(0 To 10, 0 To 10)

__________________________________________________________________________

Dim P_Value() as object

ReDim P_Value(0 To 10, 0 To 10)

会报 ReDim 配列维数不可以改变

__________________________________________________________________________

昨儿一疏忽漏写逗号了。呵呵

Dim P_Value(,) As Object

ReDim P_Value(0 To 10, 0 To 10)

__________________________________________________________________________

如果觉得《[VB.NET]VB REDIM》对你有帮助，请点赞、收藏，并留下你的观点哦！