如下命令,如果我希望【纤芯编号】能够实现从01排到24;该怎么改命令?(现在的情况是从1排到12、再从1排到12)
If e.Form.Controls("光缆对数").Text = "24" Then
For i As Integer = 1 To 2
Dim j As Integer = "1"
For j1 As Integer = 1 To 12
Dim ndr As DataRow = DataTables("光缆纤芯台帐表").AddNew
ndr("机房名称") = e.Form.Controls("机房名称").Text
ndr("光缆名称") = e.Form.Controls("光缆名称").Text
ndr("机柜编号") = e.Form.Controls("机柜编号").Text
ndr("ODM框ODF盘") = e.Form.Controls("ODF" & i).Text
ndr("纤芯长度") = e.Form.Controls("光缆长度").Text
ndr("光缆对数") = e.Form.Controls("光缆对数").Text
ndr("板盘端子") = Format(j1, "00")
ndr("纤芯编号") = Format(j, "00")
j+=1
Next
Next
End If