[ASP.NET][VB] 動態下拉式選單 By JC (看得懂就抄吧)－JCPixnetCZ

Protected Sub DropDownList_Add(ByVal Name1 As String, ByVal Name2 As String, ByVal SelectText As String, Optional X1 As String = Nothing, Optional X2 As String = Nothing)

Dim Name1C As HtmlSelect = FindControl(Name1)
Dim Name1CH As TextBox = FindControl("Value" & Name1)
Name1C.Items.Clear()
Name1C.Items.Add(New ListItem(SelectText, 0))
Dim Name2C As HtmlSelect = FindControl(Name2)
Dim Name2CH As TextBox = FindControl("Value" & Name2)
Name2C.Items.Clear()
Name2C.Items.Add(New ListItem(SelectText, 0))
Dim conn1 As New SQL
conn1.SelectCommand = "select A.P00 as 大分類ID,A.P01 as 大分類名稱,B.P00 as 中分類ID,B.P02 as 中分類名稱 from P01 A, P02 B where A.P00 = B.P01"
Dim dv1 As Data.DataView = conn1.SelectQuery

If dv1.Count > 0 Then

Response.Write("<script type=""text/javascript"">" & vbLf)
Response.Write(" function SOC(e,x) {" & vbLf)
Dim TestNum As Integer = 0
Response.Write(" switch(e.value){" & vbLf)

For i As Integer = 0 To dv1.Count - 1

If dv1.Item(i).Item("大分類ID") <> TestNum Then

Name1C.Items.Add(New ListItem(dv1.Item(i).Item("大分類名稱"), dv1.Item(i).Item("大分類ID")))
TestNum = dv1.Item(i).Item("大分類ID")
Response.Write(" case '" & TestNum & "':" & vbLf)

Response.Write(" document.form1." & Name2C.ClientID & ".options.length=0;" & vbLf)
Dim TCount As Integer = 1

For j As Integer = 0 To dv1.Count - 1
If TestNum = dv1.Item(j).Item("大分類ID") Then

Response.Write(" document.form1." & Name2C.ClientID & ".options[" & TCount & "]=new Option('" & dv1.Item(j).Item("中分類名稱") & "', " & dv1.Item(j).Item("中分類ID") & ");" & vbLf)
TCount = TCount + 1

End If

Response.Write(" document.form1." & Name2C.ClientID & ".options[0]=null;" & vbLf)
Response.Write(" document.form1." & Name2C.ClientID & ".options.selectedIndex = 0;" & vbLf)
Response.Write(" document.form1." & Name1CH.ClientID & ".value=e.value;" & vbLf)
Response.Write(" if(x == 0){" & vbLf)
Response.Write(" document.form1." & Name2CH.ClientID & ".value=" & Name2C.ClientID & ".value;" & vbLf)
Response.Write(" }" & vbLf)
Response.Write(" break;" & vbLf)

End If

Response.Write(" default:" & vbLf)
Response.Write(" document.form1." & Name2C.ClientID & ".options.length=0;" & vbLf)
Response.Write(" document.form1." & Name2C.ClientID & ".options[1]=new Option('" & SelectText & "',0);" & vbLf)
Response.Write(" document.form1." & Name2C.ClientID & ".options[0]=null;" & vbLf)
Response.Write(" document.form1." & Name2C.ClientID & ".options.selectedIndex = 0;" & vbLf)
Response.Write(" document.form1." & Name1CH.ClientID & ".value=0;" & vbLf)
Response.Write(" if(x == 0){" & vbLf)
Response.Write(" document.form1." & Name2CH.ClientID & ".value=" & Name2C.ClientID & ".value;" & vbLf)
Response.Write(" }" & vbLf)
Response.Write(" break;" & vbLf)
Response.Write(" }" & vbLf)
Response.Write(" }" & vbLf)
Response.Write(" function SelectText(e) {" & vbLf)
Response.Write(" document.form1." & Name2CH.ClientID & ".value=e.value;" & vbLf)
Response.Write(" }" & vbLf)
Response.Write(" function SelectValue(e) {" & vbLf)
Response.Write(" document.form1." & Name2C.ClientID & ".value=e.value;" & vbLf)
Response.Write(" }" & vbLf)
Response.Write("</script>" & vbLf)

End If

If Not IsPostBack Then

If X1 = Nothing And X2 = Nothing Then

Name1CH.Text = 關鍵字
Name2CH.Text = 關鍵字1

Else

Name1CH.Text = X1
Name2CH.Text = X2

End If

Response.Write("<script src=""" & ResolveUrl("~/js/jquery-1.8.2.min.js") & """ type=""text/javascript""></script>" & vbLf)
Response.Write("<script>" & vbLf)
Response.Write(" $(document).ready(function () {" & vbLf)
Response.Write(" document.form1." & Name1C.ClientID & ".value=" & Name1CH.ClientID & ".value;" & vbLf)
Response.Write(" SOC(" & Name1CH.ClientID & ",1);" & vbLf)
Response.Write(" SelectValue(" & Name2CH.ClientID & ");" & vbLf)
Response.Write(" SelectText(" & Name2CH.ClientID & ");" & vbLf)
Response.Write(" });" & vbLf)
Response.Write("</script>" & vbLf)

End Sub