retrive preselected value in second drop down list from the first drop down list



Hi
here is my scenario, I create a drop down list in itemtemplate.(that
drop down is created from db), after user
click edit command, my ideal plan is have another drop down list in
edititemtemplate with preselected value from
the previous drop down list, so far I can only achieved with the
regular drop down list in edititemtemplate with no preselected value
from previous one. anyone can help me.
thanks in advance. below is my current sample code.

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<script language="VB" runat="server">

Dim objConnection As SqlConnection
Dim myDataReader As SqlDataReader

Sub Page_Load(Sender As Object, E As EventArgs)
' Set up our connection.
objConnection = New SqlConnection("Data Source=sql;Initial
Catalog=pub;User Id=xxx;Password=xxxxx;")

LoadDataFromDB

If Not IsPostBack Then
DataBindGrid
End If

End Sub

Sub LoadDataFromDB()
Dim objCommand As SqlCommand

' Create new command object passing it our SQL query and
telling it which connection to use.
objCommand = New SqlCommand("SELECT * FROM Educationtraining
WHERE Username = 'weifon888';", objConnection)

' Open the connection, execute the command, and close the connection.
objConnection.Open()
myDataReader =
objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
End Sub

Sub DataBindGrid()
DBEditDataGrid.DataSource = myDataReader
DBEditDataGrid.DataBind
End Sub


'----------------------------------------------------------------------------------------------
Sub DBEditDataGrid_Edit(Sender As Object, E As
DataGridCommandEventArgs)
DBEditDataGrid.EditItemIndex = E.Item.ItemIndex
DataBindGrid
End Sub

Sub DBEditDataGrid_Cancel(Sender As Object, E As
DataGridCommandEventArgs)
DBEditDataGrid.EditItemIndex = -1
DataBindGrid
End Sub

Sub DBEditDataGrid_Update(ByVal Sender As Object, ByVal E As
DataGridCommandEventArgs)
' Since the textboxes are autogenerated we don't know their
names, but we do know their positions.
Dim Tempdroplist As DropDownList
Dim Tempdropvalue As String

Dim strUser As String = E.Item.Cells(0).Text
Dim certother As TextBox = E.Item.Cells(1).Controls(0)
Dim strcertother = Replace(certother.Text, "'", "`")

Tempdroplist = E.Item.FindControl("teachercert")
Tempdropvalue = Tempdroplist.SelectedItem.Value

Response.Write(strUser)
Response.Write(strcertother)
Response.Write(Tempdropvalue)


' Update the appropriate record in our database.
Dim objCommand As SqlCommand
Dim strSQLQuery As String

' Build our update command.
strSQLQuery = "UPDATE Educationtraining SET Certother = '" &
strcertother & "' WHERE Username = 'johndoe'"

' Create new command object passing it our SQL query and
telling it which connection to use.
objCommand = New SqlCommand(strSQLQuery, objConnection)

' Close our open DataReader
myDataReader.Close()

Try
' Execute the command
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()

Catch Ex As Exception

Finally
objConnection.Close()
End Try


' Refresh our copy of the data
LoadDataFromDB()

' Reset our current edit item and rebind the grid
DBEditDataGrid.EditItemIndex = -1
DataBindGrid()
End Sub

</script>

<html>
<head>
<title>Modify User Profile</title>
<script language="javascript" type="text/javascript">
window.history.forward(1);
</Script>
</head>
<body>

<form id="Form1" runat="server">

<asp:DataGrid id="DBEditDataGrid" runat="server"
BorderWidth = "1px" CellSpacing = "2" CellPadding = "2"
HeaderStyle-Font-Bold = "True"

OnEditCommand = "DBEditDataGrid_Edit"
OnCancelCommand = "DBEditDataGrid_Cancel"
OnUpdateCommand = "DBEditDataGrid_Update"

AutoGenerateColumns = "False"

<Columns>
<asp:BoundColumn HeaderText="Username" DataField="Username"
ReadOnly="True" />
<asp:BoundColumn HeaderText="Cert Other" DataField="Certother"
/>

<asp:TemplateColumn FooterText="test" HeaderText="dropdown">
<EditItemTemplate>
&nbsp;

<asp:DropDownList ID="teachercert" runat="server">

<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:DropDownList>
&nbsp;&nbsp;
</EditItemTemplate>


<ItemTemplate>
&nbsp;&nbsp;&nbsp;
<asp:DropDownList ID="DropDownList1" runat="server"
DataSourceID="SqlDataSource1"
DataTextField="Teachercert"
DataValueField="Teachercert" Enabled="False" AutoPostBack="True">
</asp:DropDownList><asp:SqlDataSource
ID="SqlDataSource1" runat="server" ConnectionString="<%$
ConnectionStrings:testConnectionString %>"
SelectCommand="SELECT [Teachercert] FROM
[EducationTraining]"></asp:SqlDataSource>
</ItemTemplate>
</asp:TemplateColumn>


<asp:EditCommandColumn
HeaderText = "Edit"
EditText = "Edit &amp; Continue"
CancelText = "Cancel"
UpdateText = "Update &amp; Continue"
/>

</Columns>
<HeaderStyle Font-Bold="True" />
</asp:DataGrid>

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

.



Relevant Pages

  • Tool to get MCP ODT at Windows CMD prompt
    ... You basically send a series of ODT commands of your choosing, once, or in a loop, and get the output right in the command ... Dim sHostname ... Sub WriteIt ... WriteIt "" ...
    (comp.sys.unisys)
  • Re: Beispiel gesucht zu pessimistisches Sperren
    ... Public Shared Sub Tab1RowLock ... Dim cmd As New SqlCommand ... Using connection As New SqlConnection ...
    (microsoft.public.de.german.entwickler.dotnet.datenbank)
  • Re: Running Excel
    ... I've gotten away from the SHELL command and am stuck with what appears to be ... Private Sub Command32_Click ... Dim xlWorkbook As Excel.Workbook ... > When you use Shell, you lose all subsequent control of the shelled program. ...
    (microsoft.public.access.modulesdaovba)
  • Re: Read value from text file line, process, then Loop until EOF
    ... Public Sub UserForm_Activate ... Dim inputcmd As String ... 'cmd_execute is a command button on a form that is clicked to excute the ... Dim FileNum As Long ...
    (microsoft.public.excel.programming)
  • Re: UpdateCommand wont update
    ... When you do a DataAdapter.Update with a CommandBuilder generated command ... same in the DB and if they are not then a concurrency violation occurs ... > Public Sub UpdateDatabase ... > Dim adpNew As New OleDb.OleDbDataAdapter ...
    (microsoft.public.dotnet.framework.adonet)