下面代码发生错误：声明用于循环控制变量的数组时不能使用初始大小得值--For Each r(i) As Row In Tables("发外加工计划表").GetCheckedRowsDim i As Integer = 0
Dim dr As Row = Tables("发外加工计划表").AddNew
For Each r(i) As Row In Tables("发外加工计划表").GetCheckedRows
If r(i) = r0 Then
dr("订单编号") = r(i)("订单编号")
dr("外加工厂商") = r(i)("外加工厂商")
dr("订单客户") = r(i)("订单客户")
dr("品名") = r(i)("品名")
dr("加工类型") = r(i)("加工类型")
dr("发外重量") = r(I)("发外重量")
dr.Save
Else
If r(i)("外加工厂商") = dr("外加工厂商") And r(i)("订单客户") = dr("订单客户") And r(i)("品名") = dr("品名") And r(i)("加工类型") = dr("加工类型") Then
dr("订单编号") = dr("订单编号") & r(i)("订单编号") & ","
dr("发外重量") = dr("发外重量") + r(i)("发外重量")
End If
End If
i= i + 1
Next
应该怎么改？
加好友 
发短信
Post By：2016/11/24 10:13:00 [显示全部帖子]
