DropDownList or ListBox selecting initial value

staisquat · Apr 28, 2012

Do I have to use SelectIndex=<integer> to have the initial value selected in a DropDownList or ListBox? I am using data from a table that only has one column that is text. <asp:ListBox id="edit_R_Level" runat="server" Rows="1" DataTextField="Level" DataValueField="Level" /> How do I make the correct entry selected (without using SelectIndex)? Thank you AaronI can not get SelectIndex to work for a ListBox. Everything seems like it should work but it doesn't select the correct entry. It always starts on the first entry. I had a function that just returned 2 that I used for SelectIndex which did select the correct entry. I tried to extend this to be dynamic based on the row in the database. I am using an ArrayList and .Indexof() but it doesn't work. Any help or suggestions would be greatly appreciated. Thank you Aaron <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <%@ Page Trace="True" %> <html> <head> <script language="VB" Debug="true" runat="server"> Dim oConnection As OleDbConnection Dim oCommand As OleDbCommand Dim level_index as Integer Dim coursetype_index as Integer Dim LevelArray as ArrayList= new ArrayList() Dim CourseTypeArray as ArrayList= new ArrayList() Function GetLevel(TestStr as String) Dim i as Integer for i = 0 to level_index if TestStr.ToString() = LevelArray(i).ToString then Trace.Write("i: " , i.ToString) Return i end if next end Function Sub Page_Load(Src As Object, E As EventArgs) Dim myReader as OleDbDataReader 'Create the connection oConnection = New OleDbConnection(ConfigurationSettings.AppSettings("constring")) oCommand = new OleDbCommand("select * from R_Level", oConnection) oCommand.Connection.Open() myReader = oCommand.ExecuteReader() level_index = -1 Trace.Write("level_index" ,level_index.ToString) do while (myReader.Read()) level_index = level_index + 1 LevelArray.Add(myReader("Level").ToString) Trace.Write("level_index" ,level_index.ToString) Trace.Write("Reader Level" ,myReader("Level").ToString) loop oCommand.Connection.Close() Trace.Write("'Lab'" ,LevelArray.Indexof("LAB").ToString) oCommand = new OleDbCommand("select Type from R_CourseAccountsTypes", oConnection) oCommand.Connection.Open() myReader = oCommand.ExecuteReader() coursetype_index = -1 Trace.Write("coursetype_index" ,coursetype_index.ToString) do while (myReader.Read()) coursetype_index = coursetype_index + 1 CourseTypeArray.Add(myReader("Type").ToString) Trace.Write("coursetype_index" ,coursetype_index.ToString) Trace.Write("Reader Course Type" ,myReader("Type").ToString) loop oCommand.Connection.Close() Trace.Write("'support'" ,CourseTypeArray.Indexof("support").ToString) If Not (IsPostBack) BindGrid() End If MyDataGrid.Columns(3).Visible = False ' Do not show the Password Column End Sub Sub MyDataGrid_Edit(Sender As Object, E As DataGridCommandEventArgs) MyDataGrid.Columns(3).Visible = True ' Show the Password Column MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex) BindGrid() Dim CourseTypeListBox as ListBox CourseTypeListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_CourseType") 'Dim CourseTypeListBox as ListBox = E.Item.FindControl("edit_CourseType") ' dim sqlVar as String 'sqlVar = "select Type from R_CourseAccountsTypes " ' where Type = 'guest' order by Type Desc Union select Type from R_CourseAccountsTypes where Type <> 'guest' order by Type Desc" 'oCommand = New OleDbCommand(sqlVar, oConnection) 'You must open the connection before populating the DataReader 'oCommand.Connection.Open() 'Assign the DataSource property directly to the result 'of the ExecuteReader method. 'CourseTypeListBox.DataSource = oCommand.ExecuteReader(CommandBehavior.CloseConnec tion) CourseTypeListBox.DataSource = CourseTypeArray CourseTypeListBox.DataBind() 'oCommand.Connection.Close() 'oCommand = New OleDbCommand("select * from R_Level", oConnection) 'You must open the connection before populating the DataReader 'oCommand.Connection.Open() 'Assign the DataSource property directly to the result 'of the ExecuteReader method. Dim LevelListBox as ListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_R_Level") 'LevelListBox.DataSource = oCommand.ExecuteReader(CommandBehavior.CloseConnec tion) LevelListBox.DataSource = LevelArray LevelListBox.DataBind() 'oCommand.Connection.Close() End Sub Sub MyDataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs) MyDataGrid.EditItemIndex = -1 BindGrid() End Sub Sub MyDataGrid_Update(Sender As Object, E As DataGridCommandEventArgs) If (Page.IsValid) 'BindGrid() ' Dim DS As DataSet 'Dim oCommand As OledbCommand Dim PasswordVar as String Dim PasswordTextBox as TextBox PasswordTextBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_UserPassword") if Len(PasswordTextBox.Text) > 0 then PasswordVar = "UserPassword = ?," else PasswordVar = "" end if Dim UpdateCmd As String = "UPDATE D_CourseAccounts SET " & PasswordVar & " UserID = ?, CourseType = " _ & " ?, R_Level = ? where ID = ?" oCommand = New OledbCommand(UpdateCmd, oConnection) If (Len(PasswordTextBox.Text) > 0) oCommand.Parameters.Add("UserPassword", PasswordTextBox.Text) Trace.Write("edit_UserPassword",PasswordTextBox.Text) oCommand.Parameters("UserPassword").Value = http://aspmessageboard.com/archive/index.php/PasswordTextBox.Text end if Dim CurrentTextBox As TextBox Dim ColValue As String CurrentTextBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_UserID") 'E.Item.FindControl("edit_UserID") ColValue = CurrentTextBox.Text oCommand.Parameters.Add("UserID", ColValue) Trace.Write("edit_UserID" ,ColValue) oCommand.Parameters("UserID").Value = ColValue Dim LevelListBox as ListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_R_Level") Dim CourseTypeListBox as ListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_CourseType") 'CourseTypeListBox = E.Item.FindControl("edit_CourseType") ColValue = CourseTypeListBox.SelectedItem.Text oCommand.Parameters.Add("CourseType", ColValue) Trace.Write("edit_CourseType" ,ColValue) oCommand.Parameters("CourseType").Value = ColValue 'Dim LevelListBox as ListBox 'LevelListBox = E.Item.FindControl("edit_R_Level") ColValue = LevelListBox.SelectedItem.Text oCommand.Parameters.Add("R_Level", ColValue) Trace.Write("edit_R_Level" ,ColValue) oCommand.Parameters("R_Level").Value = ColValue Dim TestValue as String TestValue = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) Trace.Write("MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))",MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))) Trace.Write("TestValue",TestValue) oCommand.Parameters.Add("ID", MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))) oCommand.Parameters("ID").Value = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) 'oCommand = New OledbCommand(UpdateCmd, oConnection) oCommand.Connection.Open() Try oCommand.ExecuteNonQuery() Message.InnerHtml = "Record Updated " & UpdateCmd MyDataGrid.EditItemIndex = -1 Catch Exp As OleDbException Trace.Write("Exp.Message",Exp.Message) Message.InnerHtml = "ERROR: A OleDbException." & UpdateCmd Message.Style("color") = "red" End Try oCommand.Connection.Close() BindGrid() Else Message.InnerHtml = "ERROR: Please check each field for error conditions." Message.Style("color") = "red" End If End Sub Sub BindGrid() Dim Spacer as String Dim DS As DataSet Dim oCommand As OleDbDataAdapter oCommand = new OleDbDataAdapter("select * from D_CourseAccounts", oConnection) DS = new DataSet() oCommand.Fill(DS, "CourseAccounts") MyDataGrid.DataSource=DS.Tables("CourseAccounts").DefaultView MyDataGrid.DataBind() End Sub </script> </head> <body style="font: 10pt verdana"> <form runat="server"> <h3>Online Courses: Course Accounts</h3> <ASP

ataGrid id="MyDataGrid" runat="server" Width="800" BackColor="#ccccff" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" OnEditCommand="MyDataGrid_Edit" OnCancelCommand="MyDataGrid_Cancel" OnUpdateCommand="MyDataGrid_Update" DataKeyField="ID" AutoGenerateColumns="false" > <Columns> <asp:EditCommandColumn EditText="Edit" CancelText="Cancel" UpdateText="Update" ItemStyle-Wrap="false"/> <asp:BoundColumn HeaderText="ID" SortExpression="ID" ReadOnly="True" DataField="ID" ItemStyle-Wrap="false"/> <asp:TemplateColumn HeaderText="UserID" SortExpression="UserID"> <ItemTemplate> <asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "UserID") %>'/> </ItemTemplate> <EditItemTemplate> <asp:TextBox runat="server" id="edit_UserID" Text='<%# DataBinder.Eval(Container.DataItem, "UserID") %>'/> <asp:RequiredFieldValidator id="au_UserIDReqVal" ControlToValidate="edit_UserID" Display="Dynamic" Font-Name="Verdana" Font-Size="12" runat=server>  * </asp:RequiredFieldValidator> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Password" SortExpression="UserPassword" > <EditItemTemplate> <asp:TextBox runat="server" id="edit_UserPassword" TextMode="Password" Text='<%# DataBinder.Eval(Container.DataItem, "UserPassword") %>'/> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Course Type" SortExpression="CourseType"> <ItemTemplate> <asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "CourseType") %>'/> </ItemTemplate> <EditItemTemplate> <asp:ListBox id="edit_CourseType" SelectIndex='<%# CourseTypeArray.Indexof(DataBinder.Eval(Container. DataItem, "CourseType")) %>' runat="server" Rows="1" /> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Level" SortExpression="R_Level"> <ItemTemplate> <asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "R_Level") %>'/> </ItemTemplate> <EditItemTemplate> <asp:ListBox id="edit_R_Level" runat="server" Rows="1" SelectedIndex='<%# LevelArray.Indexof(DataBinder.Eval(Container.DataI tem, "R_Level")) %>' /> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Test Level" SortExpression="UserID"> <EditItemTemplate> <asp:Label runat="server" Text='<%# LevelArray.Indexof(DataBinder.Eval(Container.DataI tem, "R_Level")) %>'/> </EditItemTemplate> </asp:TemplateColumn> </Columns> </ASP

ataGrid> </form> </body> </html>I figured it out!! I was trying to set the SelectedIndex after the data was Binded. Now I do it right before I call DatBind on the ListBox. LevelListBox.DataSource = DataArray LevelListBox.SelectedIndex = select_index LevelListBox.DataBind() Here is my code if there is a better way to do it I would love to know: <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <%@ Page Trace="True" %> <html> <head> <script language="VB" Debug="true" runat="server"> Dim oConnection As OleDbConnection Dim oCommand As OleDbCommand Dim myReader as OleDbDataReader Dim DataArray as ArrayList= new ArrayList() Sub Page_Load(Src As Object, E As EventArgs) 'Dim myReader as OleDbDataReader 'Create the connection oConnection = New OleDbConnection(ConfigurationSettings.AppSettings("constring")) If Not (IsPostBack) BindGrid() End If MyDataGrid.Columns(3).Visible = False ' Do not show the Password Column End Sub Sub MyDataGrid_Edit(Sender As Object, E As DataGridCommandEventArgs) MyDataGrid.Columns(3).Visible = True ' Show the Password Column MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex) BindGrid() Dim i as Integer Dim select_index as Integer Dim R_Level as String Dim CourseType as String Dim Sql2Var as String Sql2Var = "select R_Level, CourseType from D_CourseAccounts where ID = " & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) oCommand = new OleDbCommand(Sql2Var, oConnection) oCommand.Connection.Open() myReader = oCommand.ExecuteReader() myReader.Read() R_Level = myReader("R_Level") CourseType = myReader("CourseType") oCommand.Connection.Close() Trace.Write("Sql2Var " ,Sql2Var) oCommand = new OleDbCommand("select * from R_Level", oConnection) oCommand.Connection.Open() myReader = oCommand.ExecuteReader() i = -1 do while (myReader.Read()) i = i + 1 if R_Level = myReader("Level").ToString then select_index = i Trace.Write("level select" ,select_index.ToString) end if DataArray.Add(myReader("Level").ToString) loop Dim LevelListBox as ListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_R_Level") LevelListBox.DataSource = DataArray LevelListBox.SelectedIndex = select_index LevelListBox.DataBind() oCommand.Connection.Close() DataArray.Clear ' clear out the array oCommand = new OleDbCommand("select Type from R_CourseAccountsTypes", oConnection) oCommand.Connection.Open() myReader = oCommand.ExecuteReader() i = -1 do while (myReader.Read()) i = i + 1 if CourseType = myReader("Type").ToString then select_index = i Trace.Write("CourseType select " , select_index.ToString) end if DataArray.Add(myReader("Type").ToString) loop Dim CourseTypeListBox as ListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_CourseType") CourseTypeListBox.DataSource = DataArray CourseTypeListBox.SelectedIndex = select_index CourseTypeLIstBox.DataBind() oCommand.Connection.Close() Trace.Write("R_Level" ,R_Level) End Sub Sub MyDataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs) MyDataGrid.EditItemIndex = -1 BindGrid() End Sub Sub MyDataGrid_Update(Sender As Object, E As DataGridCommandEventArgs) If (Page.IsValid) Dim PasswordVar as String Dim PasswordTextBox as TextBox PasswordTextBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_UserPassword") if Len(PasswordTextBox.Text) > 0 then PasswordVar = "UserPassword = ?," else PasswordVar = "" end if Dim UpdateCmd As String = "UPDATE D_CourseAccounts SET " & PasswordVar & " UserID = ?, CourseType = " _ & " ?, R_Level = ? where ID = ?" oCommand = New OledbCommand(UpdateCmd, oConnection) If (Len(PasswordTextBox.Text) > 0) oCommand.Parameters.Add("UserPassword", PasswordTextBox.Text) Trace.Write("edit_UserPassword",PasswordTextBox.Text) oCommand.Parameters("UserPassword").Value = PasswordTextBox.Text end if Dim CurrentTextBox As TextBox Dim ColValue As String CurrentTextBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_UserID") ColValue = CurrentTextBox.Text oCommand.Parameters.Add("UserID", ColValue) Trace.Write("edit_UserID" ,ColValue) oCommand.Parameters("UserID").Value = ColValue Dim LevelListBox as ListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_R_Level") Dim CourseTypeListBox as ListBox = MyDataGrid.Items(CInt(E.Item.ItemIndex)).FindContr ol("edit_CourseType") ColValue = CourseTypeListBox.SelectedItem.Text oCommand.Parameters.Add("CourseType", ColValue) Trace.Write("edit_CourseType" ,ColValue) oCommand.Parameters("CourseType").Value = ColValue ColValue = LevelListBox.SelectedItem.Text oCommand.Parameters.Add("R_Level", ColValue) Trace.Write("edit_R_Level" ,ColValue) oCommand.Parameters("R_Level").Value = ColValue Dim TestValue as String TestValue = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) Trace.Write("MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))",MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))) Trace.Write("TestValue",TestValue) oCommand.Parameters.Add("ID", MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))) oCommand.Parameters("ID").Value = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) oCommand.Connection.Open() Try oCommand.ExecuteNonQuery() Message.InnerHtml = "Record Updated " & UpdateCmd MyDataGrid.EditItemIndex = -1 Catch Exp As OleDbException Trace.Write("Exp.Message",Exp.Message) Message.InnerHtml = "ERROR: A OleDbException." & UpdateCmd Message.Style("color") = "red" End Try oCommand.Connection.Close() BindGrid() Else Message.InnerHtml = "ERROR: Please check each field for error conditions." Message.Style("color") = "red" End If End Sub Sub BindGrid() Dim Spacer as String Dim DS As DataSet Dim oCommand As OleDbDataAdapter oCommand = new OleDbDataAdapter("select * from D_CourseAccounts", oConnection) DS = new DataSet() oCommand.Fill(DS, "CourseAccounts") MyDataGrid.DataSource=DS.Tables("CourseAccounts").DefaultView MyDataGrid.DataBind() End Sub </script> </head> <body style="font: 10pt verdana"> <form runat="server"> <h3>Online Courses: Course Accounts</h3> <ASP

ataGrid id="MyDataGrid" runat="server" Width="800" BackColor="#ccccff" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" OnEditCommand="MyDataGrid_Edit" OnCancelCommand="MyDataGrid_Cancel" OnUpdateCommand="MyDataGrid_Update" DataKeyField="ID" AutoGenerateColumns="false" > <Columns> <asp:EditCommandColumn EditText="Edit" CancelText="Cancel" UpdateText="Update" ItemStyle-Wrap="false"/> <asp:BoundColumn HeaderText="ID" SortExpression="ID" ReadOnly="True" DataField="ID" ItemStyle-Wrap="false"/> <asp:TemplateColumn HeaderText="UserID" SortExpression="UserID"> <ItemTemplate> <asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "UserID") %>'/> </ItemTemplate> <EditItemTemplate> <asp:TextBox runat="server" id="edit_UserID" Text='<%# DataBinder.Eval(Container.DataItem, "UserID") %>'/> <asp:RequiredFieldValidator id="au_UserIDReqVal" ControlToValidate="edit_UserID" Display="Dynamic" Font-Name="Verdana" Font-Size="12" runat=server>  * </asp:RequiredFieldValidator> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Password" SortExpression="UserPassword" > <EditItemTemplate> <asp:TextBox runat="server" id="edit_UserPassword" TextMode="Password" Text='<%# DataBinder.Eval(Container.DataItem, "UserPassword") %>'/> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Course Type" SortExpression="CourseType"> <ItemTemplate> <asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "CourseType") %>'/> </ItemTemplate> <EditItemTemplate> <asp:ListBox id="edit_CourseType" runat="server" Rows="1" /> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Level" SortExpression="R_Level"> <ItemTemplate> <asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "R_Level") %>'/> </ItemTemplate> <EditItemTemplate> <asp:ListBox id="edit_R_Level" runat="server" Rows="1" /> </EditItemTemplate> </asp:TemplateColumn> <asp:TemplateColumn HeaderText="Test Level" SortExpression="UserID"> <EditItemTemplate> <asp:Label runat="server" Text='<%# DataBinder.Eval(Container.DataItem, "R_Level") %>'/> </EditItemTemplate> </asp:TemplateColumn> </Columns> </ASP

ataGrid> </form> </body> </html>

DropDownList or ListBox selecting initial value

staisquat

New Member