还有一个问题，就是，申明变量时可以用For next 循环把变量名连起来用吗？
比如 Dim drs & Index As String = "drs" & Index 这样子，但是这样测试不成功。
For Index As Integer = 0 To 2
Dim drs & Index As String = "drs" & Index
Dim drs As new List (of String)
Dim drx (9) As String
For i1 As Integer = 0 To drx .Length-1
drx1(i1) = sheetn(i)(7,8+i1).Text
Next
For Each dr As String In drx
If dr .Length <> 0 Then
drs .Add(dr )
End If
Next
For Each drsj As String In drs
Dim nrow As DataRow = DataTables("路缘石检查数据").AddNew
nrow ("公里桩") = glz.TrimEnd("","x","l","s",".","左","右","_","侧").Replace("-","~")
nrow ("百米桩") = sheetn(i)(3,2).Text
nrow ("项次") = 1
nrow ("数据内容") = drsj
nrow ("分表号") = 1 + i
nrow ("工程部位") = sheetn(i)(3,4).Text
Next
Next
加好友 
发短信
Post By：2019/4/26 8:30:00 [显示全部帖子]
