User-2075826951 posted
Thank you all so very much.
Cathy Zou, thank you for making me look closer at databound concepts.
mgebhard, thank you for the 'If Not IsPostBack' statement that is crucial in making this work and for all of the links that I will be following up on for some time yet to come, especially the View State stuff.
oned_gk, thank you profoundly for the education you have given me. Your insights into 'HiddenField' vs 'Label' and when 'ddl.DataBound()' is and is not appropriate have made for much leaner code that is easier to read both in my Initial Data Entry
code and my Update Data code.
Initial Data Entry display:
<asp:MultiView ID="MultiView1" runat="server">
<asp:View ID="View1" runat="server">
Select Air or Army Branch:
<asp:DropDownList ID="ddlBranch" runat="server" AutoPostBack="true" OnSelectedIndexChanged="ddlBranch_Selected">
<asp:ListItem Text="" Selected="True"></asp:ListItem>
<asp:ListItem Text="Air"></asp:ListItem>
<asp:ListItem Text="Army"></asp:ListItem>
</asp:DropDownList>
</asp:View>
<asp:View ID="View2" runat="server">
<asp:DetailsView ID="DetailsView1" runat="server" Height="100%" Width="50%" DataSourceID="SqlDataSource1" DefaultMode="Insert"
HorizontalAlign="Center" DataKeyNames="SSN" AutoGenerateRows="False" EnableModelValidation="True" OnItemInserting="Record_Inserting" >
<CommandRowStyle HorizontalAlign="Center" />
<Fields>
<asp:TemplateField HeaderText="Branch / Component" SortExpression="COMPONENT">
<InsertItemTemplate>
<asp:Label ID="lblCmpt" runat="server" Text='<%# Bind("COMPONENT") %>'></asp:Label>
</InsertItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Rank" SortExpression="RANK" ControlStyle-Width="45%">
<InsertItemTemplate>
<asp:DropDownList ID="ddlRANK" runat="server" DataTextField="Rank" DataValueField="Abbreviation"/>
</InsertItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Highest Rank" SortExpression="HRANK" ControlStyle-Width="45%">
<InsertItemTemplate>
<asp:DropDownList ID="ddlHRANK" runat="server" DataTextField="Rank" DataValueField="Abbreviation"/>
</InsertItemTemplate>
</asp:TemplateField>
<asp:CommandField ShowInsertButton="True" />
</Fields>
<RowStyle HorizontalAlign="Left" />
</asp:DetailsView>
</asp:View>
</asp:MultiView>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [Pensions]"
InsertCommand="INSERT INTO [Pensions] ([COMPONENT], [RANK], [HRANK]) VALUES (@COMPONENT, @RANK, @HRANK)" >
<InsertParameters>
<asp:Parameter Name="COMPONENT" Type="String" />
<asp:Parameter Name="RANK" Type="String" />
<asp:Parameter Name="HRANK" Type="String" />
</InsertParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [States]" >
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource3" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [AirRank]" >
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource4" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [ArmyRank]" >
</asp:SqlDataSource>
</div>
<br />
<br />
</asp:Content>
Initial Data Entry markup:
Protected Sub ddlBranch_Selected(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlBranch.SelectedIndexChanged
Dim strBranch As String = ddlBranch.SelectedItem.Text
Dim lblComp As Label = DetailsView1.FindControl("lblCmpt")
Dim ddlRnk As DropDownList = DetailsView1.FindControl("ddlRank")
Dim ddlHRnk As DropDownList = DetailsView1.FindControl("ddlHRank")
If strBranch <> "" Then
If strBranch = "Air" Then
lblComp.Text = "SCANG"
ddlRnk.DataSourceID = "SqlDataSource3"
ddlHRnk.DataSourceID = "SqlDataSource3"
Else
lblComp.Text = "SCARNG"
ddlRnk.DataSourceID = "SqlDataSource4"
ddlHRnk.DataSourceID = "SqlDataSource4"
End If
MultiView1.SetActiveView(View2)
End If
End Sub
Protected Sub Record_Inserting(ByVal sender As Object, ByVal e As DetailsViewInsertEventArgs) Handles DetailsView1.ItemInserting
Dim ddlRnk As DropDownList = DetailsView1.FindControl("ddlRank")
Dim ddlHRnk As DropDownList = DetailsView1.FindControl("ddlHRank")
e.Values("Rank") = ddlRnk.SelectedValue
e.Values("HRank") = ddlHRnk.SelectedValue
End Sub
Update display:
<asp:DetailsView ID="DetailsView1" runat="server" Height="100%" Width="50%"
AutoGenerateRows="False" DataSourceID="SqlDataSource1" HorizontalAlign="Center"
DataKeyNames="SSN" EnableModelValidation="True" DefaultMode="Edit" >
<Fields>
<asp:TemplateField HeaderText="Branch / Component" SortExpression="COMPONENT">
<ItemTemplate>
<asp:Label ID="lblCmpt" runat="server" Text='<%# Bind("COMPONENT") %>'/>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Rank" SortExpression="RANK" ControlStyle-Width="45%">
<EditItemTemplate>
<asp:HiddenField ID="hdnRank" runat="server" Value='<%# Bind("RANK")%>'/>
<asp:DropDownList ID="ddlRANK" runat="server" />
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Highest Rank" SortExpression="HRANK" ControlStyle-Width="45%">
<EditItemTemplate>
<asp:HiddenField ID="hdnHRank" runat="server" Value='<%# Bind("HRANK")%>'/>
<asp:DropDownList ID="ddlHRANK" runat="server" />
</EditItemTemplate>
</asp:TemplateField>
<asp:CommandField ShowEditButton="True" ItemStyle-HorizontalAlign="Center" >
</asp:CommandField>
<asp:TemplateField ShowHeader="False" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="DelButton1" runat="server" CommandName="Delete" Text="Delete" OnClientClick="return confirm('Are you sure you want to delete this entry?')" ></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Fields>
<RowStyle HorizontalAlign="Left" />
</asp:DetailsView>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [Pensions] WHERE [SSN] = @SSN"
DeleteCommand="INSERT INTO [RecDel] SELECT * FROM [Pensions] WHERE [SSN] = @SSN; DELETE FROM [Pensions] WHERE [SSN] = @SSN"
UpdateCommand="UPDATE [Pensions] SET [COMPONENT] = @COMPONENT, [RANK] = @RANK, [HRANK] = @HRANK WHERE SSN = @SSN" >
<SelectParameters>
<asp:QueryStringParameter Name="SSN" QueryStringField="SSN" Type="String" />
</SelectParameters>
<UpdateParameters>
<asp:Parameter Name="COMPONENT" Type="String" />
<asp:Parameter Name="RANK" Type="String" />
<asp:Parameter Name="HRANK" Type="String" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [States]" >
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource3" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [AirRank]" >
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource4" runat="server"
ConnectionString="<%$ ConnectionStrings:connString %>"
SelectCommand="SELECT * FROM [ArmyRank]" >
</asp:SqlDataSource>
</div>
<br />
<br />
</asp:Content>
Update markup:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim lblComp As Label = DetailsView1.FindControl("lblCmpt")
Dim hdnRnk As HiddenField = DetailsView1.FindControl("hdnRank")
Dim hdnHRnk As HiddenField = DetailsView1.FindControl("hdnHRank")
Dim ddlRnk As DropDownList = DetailsView1.FindControl("ddlRank")
Dim ddlHRnk As DropDownList = DetailsView1.FindControl("ddlHRank")
If lblComp.Text = "SCANG" Then
ddlRnk.DataSourceID = "SqlDataSource3"
ddlHRnk.DataSourceID = "SqlDataSource3"
Else
ddlRnk.DataSourceID = "SqlDataSource4"
ddlHRnk.DataSourceID = "SqlDataSource4"
End If
ddlRnk.SelectedValue = hdnRnk.Value
ddlRnk.DataValueField = "Abbreviation"
ddlRnk.DataTextField = "Rank"
ddlRnk.DataBind()
ddlHRnk.SelectedValue = hdnHRnk.Value
ddlHRnk.DataValueField = "Abbreviation"
ddlHRnk.DataTextField = "Rank"
ddlHRnk.DataBind()
End If
End Sub
Protected Sub DetailsView1_ItemUpdating(sender As Object, ByVal e As DetailsViewUpdateEventArgs) Handles DetailsView1.ItemUpdating
Dim ddlRnk As DropDownList = DetailsView1.FindControl("ddlRank")
Dim ddlHRnk As DropDownList = DetailsView1.FindControl("ddlHRank")
e.NewValues("RANK") = ddlRnk.SelectedValue
e.NewValues("HRANK") = ddlHRnk.SelectedValue
End Sub
There is obviously more code than I am showing but the above is pertinent to my issue, selecting between two tables to populate one DropDownList.
Again, thank you all so very much; works like a charm.
