Getting a preselected value in a dropdownlist. 1

joeb55 · Apr 7, 2003

Having a hard time getting a preselected value in a dropdownlist.

The two lines I am questioning are:

tb_TaskOwner.SelectedIndex = tb_TaskOwner.Items.IndexOf(tb_TaskOwner.Items.FindByValue("TSO&quot

)
tb_TaskGroup.SelectedIndex = tb_TaskGroup.Items.IndexOf(tb_TaskGroup.Items.FindByValue("TSG&quot

)

I have no problem righting the values for "TSO" & "TSG" to a label but i cannot pass the value back to the dropdownlists "tb_TaskOwner" & "tb_TaskGroup" as selected value when I modified my form.

Cannot get it to preselect!

Code as follows:
Here is the AM.aspx

Start------------------------------------------------------------------------------------

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="AM.aspx.vb" Inherits="MSDDTask.AM"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>AM_Tasks</title>
<LINK href="ToolsStyle1.css" type="text/css" rel="stylesheet">
</HEAD>
<body MS_POSITIONING="FlowLayout">
<TABLE id="Table1" cellSpacing="1" cellPadding="1" width="100%" border="0">
<TR>
<TD width="100%" colSpan="3" rowSpan="1"></TD>
</TR>
<TR>
<TD style="WIDTH: 353px" vAlign="top">
 
</TD>
<TD> </TD>
<TD vAlign="top" width="100%">
<form id="Form1" method="post" runat="server">

<blockquote>
<asp:label id="lblTitle" runat="server"></asp:label>

<asp:Label id="lblOwner" runat="server"></asp:Label>

<asp:Label id="lblGroup" runat="server"></asp:Label>
<asp:label class="FieldDescriptions" id="lb_TaskOwner" runat="server">Task Owner</asp:label> 
<asp:dropdownlist id="tb_TaskOwner" runat="server" DataTextField="TaskOwnerName" DataValueField="TaskOwnerName"></asp:dropdownlist><asp:requiredfieldvalidator class="ValidationDescriptions" id="vld_TaskOwner" runat="server" ErrorMessage="You must select a Task Owner!" ControlToValidate="tb_TaskOwner">*</asp:requiredfieldvalidator>
<asp:label class="FieldDescriptions" id="lblTaskGroup" runat="server">Task Group</asp:label> 
<asp:dropdownlist id="tb_TaskGroup" runat="server" DataTextField="TaskGroupName" DataValueField="TaskGroupName"></asp:dropdownlist><asp:requiredfieldvalidator class="ValidationDescriptions" id="vld_TaskGroup" runat="server" ErrorMessage="You must select a Task Group!" ControlToValidate="tb_TaskGroup">*</asp:requiredfieldvalidator>

<asp:button id="btnModify" runat="server" Text="Modify Delivery"></asp:button>
<asp:button id="btnAddNew" runat="server" Text="Add New Delivery"></asp:button>
<asp:button id="btnCancel" runat="server" Text="Cancel"></asp:button> 

<asp:validationsummary id="VldSummary" runat="server"></asp:validationsummary>

 
</blockquote>
</form>
</TD>
</TR>
<TR>
<TD style="WIDTH: 353px" colSpan="3"></TD>
</TR>
</TABLE>
</body>
</HTML>

End of AM.aspx------------------------------------------------------------------

and here is the Code Behind AM.aspx.vb

Start------------------------------------------------------------------------------------

Imports System
Imports System.Data
Imports System.Web.UI
Imports System.Data.SqlClient
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.ListControl
Imports System.Web.UI.HtmlControls

Public Class AM
Inherits System.Web.UI.Page
Protected WithEvents lb_TaskOwner As System.Web.UI.WebControls.Label
Protected WithEvents tb_TaskOwner As System.Web.UI.WebControls.DropDownList
Protected WithEvents vld_TaskOwner As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents lblTaskGroup As System.Web.UI.WebControls.Label
Protected WithEvents tb_TaskGroup As System.Web.UI.WebControls.DropDownList
Protected WithEvents vld_TaskGroup As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
Protected WithEvents lblTitle As System.Web.UI.WebControls.Label
Protected WithEvents btnModify As System.Web.UI.WebControls.Button
Protected WithEvents btnAddNew As System.Web.UI.WebControls.Button
Protected WithEvents btnCancel As System.Web.UI.WebControls.Button
Protected WithEvents VldSummary As System.Web.UI.WebControls.ValidationSummary
Protected WithEvents lblOwner As System.Web.UI.WebControls.Label
Protected WithEvents lblGroup As System.Web.UI.WebControls.Label
Dim strConn As String = CStr(ConfigurationSettings.AppSettings("CSSCConn&quot

)
Dim MyConnOwner As New SqlConnection(strConn)
Dim MyConn As New SqlConnection(strConn)
Dim NTU As String

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

NTU = LCase(Request.ServerVariables("LOGON_USER&quot

)
If (Request.QueryString("TS_UI&quot

) = "" Then
ClearData()
ddlTaskOwner()
ddlTaskGroup()

Else
BindData()
If Not Page.IsPostBack Then
btnModify.Visible = True
btnAddNew.Visible = False
ddlTaskOwner()
ddlTaskGroup()

End If
End If
End Sub

Sub ddlTaskOwner()
Dim SQLOwner As String = "Select Distinct TaskOwnerName from V_TaskOwner"
Dim objDROwner As SqlDataReader
Dim CmdOwner As New SqlCommand(SQLOwner, MyConnOwner)

MyConnOwner.Open()
objDROwner = CmdOwner.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
tb_TaskOwner.DataSource = objDROwner
tb_TaskOwner.DataBind()
tb_TaskOwner.Items.Insert(0, New ListItem("Select a Task Owner", "&quot

)
End Sub

Sub ddlTaskGroup()
Dim SQLGroup As String = "select distinct TaskGroupName from TaskGroup"
Dim objDRGroup As SqlDataReader
Dim CmdGroup As New SqlCommand(SQLGroup, MyConn)

MyConn.Open()
objDRGroup = CmdGroup.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
tb_TaskGroup.DataSource = objDRGroup
tb_TaskGroup.DataBind()
tb_TaskGroup.Items.Insert(0, New ListItem("Select a Group", "&quot

)
End Sub

Public Sub BindData()
Dim strSQL2 As String = "select * from TaskSched where TS_UI = '" + (Request.QueryString("TS_UI&quot

) + "'"
Dim Conn As New SqlConnection(strConn)

Dim Cmd2 As New SqlCommand(strSQL2, Conn)
Dim TS_UI As String
Dim drMod As SqlDataReader

Conn.Open()
drMod = Cmd2.ExecuteReader
drMod.Read()

lblTitle.Text = drMod("TS_Group&quot

Dim TSO As String
Dim TSG As String

TSO = drMod("TS_Customer&quot

lblOwner.Text = TSO

TSG = drMod("TS_Group&quot

lblGroup.Text = TSG

tb_TaskOwner.SelectedIndex = tb_TaskOwner.Items.IndexOf(tb_TaskOwner.Items.FindByValue("TSO&quot

)
tb_TaskGroup.SelectedIndex = tb_TaskOwner.Items.IndexOf(tb_TaskGroup.Items.FindByValue("TSG&quot

)

Conn.Close()
'Response.Write(strSQL2)

End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Server.Transfer("Admin_TaskByOwner.aspx&quot

End Sub

Private Sub ClearData()
tb_TaskOwner.DataValueField = ""
tb_TaskGroup.DataValueField = ""

btnModify.Visible = False
btnAddNew.Visible = True

End Sub

Private Sub btnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.Click
Dim CustUpdateQuery As String
CustUpdateQuery = "Update TaskSched Set "
CustUpdateQuery &= "TS_Customer='" & tb_TaskOwner.DataValueField & "', "
CustUpdateQuery &= "TS_Group='" & tb_TaskGroup.DataValueField & "' "
CustUpdateQuery &= "Where TS_UI='" & (Request.QueryString("TS_UI&quot

) & "'"

Dim strConnectionString As String
Dim Config As Hashtable

strConnectionString = CStr(ConfigurationSettings.AppSettings("CSSCConn&quot

)

Dim pConn As New SqlConnection(strConnectionString)
Dim cmd As New SqlCommand()
cmd.CommandText = CustUpdateQuery
cmd.Connection = pConn
Response.Write(CustUpdateQuery)
Try
pConn.Open()
cmd.ExecuteNonQuery()
'lblOK.Visible = True

Catch err As Exception

End Try
pConn.Close()
Server.Transfer("Admin_TaskByOwner.aspx&quot

End Sub

Private Sub btnAddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddNew.Click
Response.Write("Add New Data&quot

Dim CustInsertQuery As String
CustInsertQuery = "Insert Into TaskSched ("
CustInsertQuery &= "TS_Customer, TS_Group) "
CustInsertQuery &= "Values ('"
CustInsertQuery &= tb_TaskOwner.DataValueField & "', '"
CustInsertQuery &= tb_TaskGroup.DataValueField & "', '"

Dim strConnectionString As String
Dim Config As Hashtable

strConnectionString = CStr(ConfigurationSettings.AppSettings("CSSCConn&quot

)

End Sub

Private Sub InitializeComponent()

End Sub
End Class

End of AM.aspx.vb------------------------------------------------------------------

Thanks

Zarcom · Apr 8, 2003

Please don't post all of the code next time just the relevent code. Thx

Anyway this is what you have

Dim TSO As String
Dim TSG As String

TSO = drMod("TS_Customer&quot

lblOwner.Text = TSO

TSG = drMod("TS_Group&quot

lblGroup.Text = TSG

tb_TaskOwner.SelectedIndex = tb_TaskOwner.Items.IndexOf(tb_TaskOwner.Items.FindByValue("TSO&quot

)
tb_TaskGroup.SelectedIndex = tb_TaskOwner.Items.IndexOf(tb_TaskGroup.Items.FindByValue("TSG&quot

)

I assume that the values you put into the TSO and TSG variables are what you are trying to set the index to. Yes? If so then you need to pass the variables in. What your passing into the findbyvalue is the string "TSO" not the value that the TSO variable contains.

This is what you should have

Dim TSO As String
Dim TSG As String

TSO = drMod("TS_Customer&quot

lblOwner.Text = TSO

TSG = drMod("TS_Group&quot

lblGroup.Text = TSG

tb_TaskOwner.SelectedIndex = tb_TaskOwner.Items.IndexOf(tb_TaskOwner.Items.FindByValue(TSO))
tb_TaskGroup.SelectedIndex = tb_TaskOwner.Items.IndexOf(tb_TaskGroup.Items.FindByValue(TSG))

That'l do donkey, that'l do
[bravo]

Mark
If you are unsure of forum etiquette check here faq796-2540

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Getting a preselected value in a dropdownlist. 1

joeb55

Programmer

Zarcom

Programmer

Similar threads

Part and Inventory Search

Sponsor