完整代码:
=====================
<script language=vb runat=server>
Sub ActiveReader(SQL,cmpt)
Dim cmd As SQLCommand
Dim dtrder As SQLDataReader
Dim strSQL As String
Dim i As Integer
Dim AryComponent(),ArySmall() As String
strSQl = SQL
AryComponent = Split(cmpt,",")
Call CreateConnection()
cmd = New SQLCommand(strSQL,dbConn)
dtrder = cmd.ExecuteReader
If dtrder.Read() Then
for i = 0 to Ubound(AryComponent)
ArySmall = Split(AryComponent(i),"|")
If Lcase(ArySmall(2)) = "textbox" Then
ArySmall(0).Text = dtrder(i)
End IF
Next
Else
End IF
Call EndConnection()
End Sub
</script>
我想要达到的效果如下:
cmpt = "tbName|TextBox,lbProName|ListBox"
AryComponent = Split(cmpt,",")
for i = 0 to Ubound(AryComponent)
ArySmall = Split(AryComponent(i),"|")
If Lcase(ArySmall(1)) = "textbox" Then
ArySmall(0).Text = dtrder(i)'此处出错
ElseIf....Then
......
End IF
Next