Dim 項目1() As String = e.Form.Controls("項目1").text
Dim 項目2() As String = e.Form.Controls("項目2").text
Dim 項目3() As String = e.Form.Controls("項目3").text
Dim 項目4() As String = e.Form.Controls("項目4").text
Dim 項目5() As String = e.Form.Controls("項目5").text
Dim 項目6() As String = e.Form.Controls("項目6").text
Dim 項目7() As String = e.Form.Controls("項目7").text
Dim 項目8() As String = e.Form.Controls("項目8").text
Dim 項目9() As String = e.Form.Controls("項目9").text
Dim 項目10() As String = e.Form.Controls("項目10").text
Dim Sum As Integer = 0
For a1 As Integer = 0 To 項目1.Length - 1
For a2 As Integer = 0 To 項目2.Length - 1
For a3 As Integer = 0 To 項目3.Length - 1
For a4 As Integer = 0 To 項目4.Length - 1
For a5 As Integer = 0 To 項目5.Length - 1
For a6 As Integer = 0 To 項目6.Length - 1
For a7 As Integer = 0 To 項目7.Length - 1
For a8 As Integer = 0 To 項目8.Length - 1
For a9 As Integer = 0 To 項目9.Length - 1
For a10 As Integer = 0 To 項目10.Length - 1
Sum = Sum + 1
If Sum > 101 Then
Exit For
Exit For
Exit For
Exit For
Exit For
Exit For
Exit For
Exit For
Exit For
Exit For
End If
Dim fe As String =項目1(a1) & "|" & 項目2(a2) & "|" & 項目3(a3) & "|" & 項目4(a4) & "|" & 項目5(a5) & "|" & 項目6(a6) & "|" & 項目7(a7) & "|" & 項目8(a8) & "|" & 項目9(a9) & "|" & 項目10(a10)
output.show(fe.Replace("||","|"))
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Dim 項目1() As String = e.Form.Controls("項目1").text
这么些 不行么？
e.Form.Controls("項目1")的值 是 {"asd","sad"}
加好友 
发短信
Post By：2014/10/6 10:50:00 [只看该作者]
