If r IsNot Nothing Then
Dim T As String() = {"定额","提示","前编码","项目名称","单位","位数","措施","W","序号","系数","定额","提示","前编码","项目名称","单位","位数","措施","W","序号","系数"}
For i As Byte = 0 To 9
c(T(i)) =
r(T(i+10))
Next
c("RG")
= 1
c("CL")
= 1
End If
End If
MessageBox.Show(1)
If e.DataCol.name = "RG" Then
c("项目名称") = c("项目名称") & " 人工×"&
a1 & ""
End If
MessageBox.Show(2)
If e.DataCol.name = "CL" Then
c("项目名称") = c("项目名称") & " 材料×"& a2
& ""
End If
MessageBox.Show(3)
我的理解应该是,应该依次填充:定额、提示、前编码、项目名称、......、RG、CL
之后再开始向下循环
在实际执行中发现是:定额(大循环)、提示(大循环)、前编码(大循环)、......、RG(大循环)、CL(大循环)
大循环即执行了:MessageBox.Show(1)、MessageBox.Show(2)、MessageBox.Show(3)
我不知道这样是否正常?