Как заполнить значение выпадающего списка в правке
Привет,
У меня есть 2 выпадающих списка: 1-сайт, а другой-склад. Значение раскрывающегося списка склада будет изменено на основе раскрывающегося списка сайта.
Я сделал вставку для этого выпадающего списка, но когда я пытаюсь отредактировать выпадающие списки, уже существующее значение должно быть показано, и значение выпадающего списка должно измениться на основе элемента управления редактированием сайта..
Как я мог бы сделать редактирование для этих 2 элементов управления?
Я не мог найти идеального примера для этого, может ли кто-нибудь помочь мне в этом?
Что я уже пробовал:
Это мой шаблон вставки:
<asp:DropDownList ID= "TxtsiteInsert" runat="server" AutoPostBack="True" OnSelectedIndexChanged="sitedropdown_SelectedIndexChanged" TabIndex="6"> <asp:ListItem Text="Select Site"></asp:ListItem> </asp:DropDownList> </InsertItemTemplate>
<InsertItemTemplate> <asp:DropDownList ID= "TxtWarehouseInsert" runat="server" AutoPostBack="True" TabIndex="7" > <asp:ListItem Text="Select warehouse"></asp:ListItem> </asp:DropDownList> </InsertItemTemplate>
Это мое кодирование:
Protected Sub sitedropdown_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Dim IdTxtsiteInsert As DropDownList = CType(DetailsView3.Rows(0).FindControl("TxtsiteInsert"), DropDownList) Fillwarehouse(IdTxtsiteInsert.Text) End Sub
Public Sub Fillwarehouse(ByVal siteid As String) 'Dim IdTxtWarehouseInsert As DropDownList = CType(DetailsView3.Rows(0).FindControl("TxtWarehouseInsert"), DropDownList) Dim ddr1 As DropDownList = CType(DetailsView3.Rows(0).FindControl("TxtWarehouseInsert"), DropDownList) Dim strConn As String = WebConfigurationManager.ConnectionStrings("BMGINC_DYNAX09_ProdConnectionString").ConnectionString Dim con As New SqlConnection(strConn) Dim cmd As New SqlCommand() cmd.Connection = con cmd.CommandType = CommandType.Text cmd.CommandText = "Select InventLocationId, Name from InventLocation where dataareaid='BRM' and InventSiteId =@InventSiteId" cmd.Parameters.AddWithValue("@InventSiteId", siteid) Dim objDs As New DataSet() Dim dAdapter As New SqlDataAdapter() dAdapter.SelectCommand = cmd con.Open() dAdapter.Fill(objDs) con.Close() If objDs.Tables(0).Rows.Count > 0 Then ddr1.DataSource = objDs.Tables(0) ddr1.DataTextField = "InventLocationId" ddr1.DataValueField = "InventLocationId" ddr1.DataBind() ddr1.Items.Insert(0, "-Select warehouse-") Else ddr1.DataTextField = " " ddr1.DataValueField = " " ddr1.DataBind() ddr1.Items.Insert(0, " ") LblError.Text = "No Warehouse found" End If End Sub