在DropDownList1的改变事件中写...
解决方案 »
- 很多数据怎么用Session传值
- js循环判断文本框非空的问题
- 关于做高级查询的问题
- 高手请教GridView1的翻页问题
- [馨郁星愿]javascript的历遍问题:
- 这段js特效代码在火狐和IE7,IE8里显示不出来?
- 怎样获得Response.Write("<script language=javascript>window.confirm('Delete this record?');</"+"script>");的返回值?
- 自动的插入字段
- 不知道有没有人知道这个东东。
- 菜鸟发问--关于数据导出为EXCEL表格,(做毕业设计,SOS!)
- 天气预报的图标在哪里可以下载?
- 我是新手,请问win2003下用vs.net 2002来写aspx文件的问题
Private Sub dList38_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dList38.SelectedIndexChanged
Dim SEN As String = dList38.SelectedItem.Text
Dim cnConn As New SqlConnection(ConfigurationSettings.AppSettings("ZS_Link"))
Dim SQLselect As String SQLselect = "SELECT ShipNameCH FROM ShipInfo WHERE ShipNameEN = @SEN ORDER BY ShipNameCH ASC" '查询
Dim ds As DataSet
Dim cmdSelect As New SqlDataAdapter(SQLselect, cnConn)
cmdSelect.SelectCommand.Parameters.Add(New SqlParameter("@SEN", SEN))
'显示查询结果
ds = New DataSet
cmdSelect.Fill(ds, "ShipInfo") dList39.DataSource = ds
dList39.DataTextField = "ShipNameCH"
dList39.DataBind()
End Sub
If ddl1.SelectedValue = Then
ddl2.SelectedValue =
End If
End Subddl1的AutoPostBack設為True
private void Page_Load(object sender, System.EventArgs e)
{
if (!IsPostBack)
AddControls();
}protected override void LoadViewState(object savedState)
{
base.LoadViewState(savedState);
if (ViewState["controsladded"] == null)
AddControls();
}private void AddControls()
{
TextBox dynamictextbox = new TextBox();
dynamictextbox.Text = "(Enter some text)";
dynamictextbox.ID = "dynamictextbox";
Button dynamicbutton = new Button();
dynamicbutton.Click += new System.EventHandler(dynamicbutton_Click);
dynamicbutton.Text = "Dynamic Button";
Panel1.Controls.Add(dynamictextbox);
Panel1.Controls.Add(new LiteralControl("<BR>"));
Panel1.Controls.Add(new LiteralControl("<BR>"));
Panel1.Controls.Add(dynamicbutton);
ViewState["controlsadded"] = true;
}private void dynamicbutton_Click(Object sender, System.EventArgs e)
{
TextBox tb = new TextBox();
tb = (TextBox) (Panel1.FindControl("dynamictextbox"));
Label1.Text = tb.Text;
}
DropDownList dpl;
DropDownList dpl2;dpl=new DropDownList();
dpl2=new DropDownList();
dpl.ID="dpl";
dpl.Items.Add(new ListItem("aaa","1"));
dpl.Items.Add(new ListItem("bbb","2"));
dpl.Items.Add(new ListItem("ccc","3"));
dpl.AutoPostBack=true;为DropDownList添加处理事件
dpl.SelectedIndexChanged+=new System.EventHandler(this.dpl_SelectedIndexChanged);编写事件处理代码
private void dpl_SelectedIndexChanged(object sender,System.EventArgs e)
{
dpl2.Items.Add(new ListItem("ddd","1"));
................
}
<script language="VB" runat="server">
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
dim ddl as new DropDownList
ddl.ID = "ddl1"
ddl.AutoPostBack = true
AddHandler ddl.SelectedIndexChanged, AddressOf SelectionChanged
form1.Controls.Add(ddl) dim ddl2 as new DropDownList
ddl2.ID = "ddl2" form1.Controls.Add(ddl2)
if not IsPostBack then
dim i as integer
for i = 1 to 10
ddl.Items.Add(new ListItem(i & ""))
next SelectionChanged(ddl, EventArgs.Empty) end ifEnd SubSub SelectionChanged(ByVal sender As Object, ByVal e As EventArgs)
dim ddl as DropDownList = CType(sender, DropDownList)
dim s as String = ddl.SelectedItem.Value dim ddl2 as DropDownList = CType(form1.FindControl("ddl2"), DropDownList)
ddl2.Items.Clear()
dim i as integer
for i = 1 to 10
ddl2.Items.Add(new ListItem(s & i,s & i))
next
End Sub</script>
<form id="form1" runat=server>
<asp:Button id=btn runat=server Text=Submit />
</form>
你提供的代码完全没问题,但我根据我的实际情况,把你的代码放到我的程序里,选择DropDownList1后,屏幕一遍空白。我知道是动态控件不能重新绑定的原因,但不知如何处理。
Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
Dim test1 As New test1()
Dim ddl_1 As New DropDownList()Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack() Then
calltest()
Else
If Not (Request.Form(ddl_1.UniqueID) Is Nothing) Then
calltest()
End If
End If
End Sub Sub calltest()
test1.test(Panel1)
ddl_1 = Panel1.FindControl("ddl1")
AddHandler ddl_1.SelectedIndexChanged, AddressOf SelectionChanged
End Sub Sub SelectionChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim ddl As DropDownList = CType(sender, DropDownList)
Dim s As String = ddl.SelectedItem.Value Dim ddl2 As DropDownList = CType(Panel1.FindControl("ddl2"), DropDownList)
ddl2.Items.Clear()
Dim i As Integer
For i = 1 To 10
ddl2.Items.Add(New ListItem(s & i, s & i))
Next
End Subtest1.vb文件:
Public Class test1
Public Sub test(ByRef panel1 As Panel)
Dim ddl As New DropDownList()
ddl.ID = "ddl1"
ddl.AutoPostBack = True
panel1.Controls.Add(ddl) Dim ddl2 As New DropDownList()
ddl2.ID = "ddl2" panel1.Controls.Add(ddl2)
Dim i As Integer
For i = 1 To 10
ddl.Items.Add(New ListItem(i & ""))
Next
End Sub
End Class
然后在DropDownList1.selectIndexChanged中写要绑定到DropDownList2有事件