DropDownList

[Brod]

Ciao a tutti!

Ho alcune DDL dentro un datalist. Le DDL fanno parte di una form in cui un utente immette/modifica i propri dati. Una DDL, ad esempio, ha due valori "uomo" e "donna" (non li prendo da db). Una volta compilata la form la invio e memorizzo i dati nel db, dopodiche visualizzo nuovamente la pagina con i nuovi valori. Funziona tutto ma vorrei che le DDL visualizzassero i valori scelti e non il primo della lista. Come devo fare?

Grazie!

[zampa28]

Function MyFunction() as Integer
'codice che ricava l'indice che ti serve
End Function



<ASP:DropDownList ID="MyDDL"
...
SelectedIndex="<%#MyFunction%>"
/>

[Koss]

Anch'io ho un problema simile!
Come si fa per ricavare l'indice?

[zampa28]

Originariamente inviato da Koss
Anch'io ho un problema simile!
Come si fa per ricavare l'indice?

Dim MyIndice as Integer = MyDropDownList.SelectedIndex

e viceversa:

Dim MyIndice as Integer = 5

MyDropDownList.SelectedIndex = MyIndice

[Koss]

Originariamente inviato da zampa28
Dim MyIndice as Integer = MyDropDownList.SelectedIndex

e viceversa:

Dim MyIndice as Integer = 5

MyDropDownList.SelectedIndex = MyIndice

Ho provato ma non funziona
Credo che il problema sia che la DDL sta dentro un datalist e non riesco a riferirmici. Dannato asp.net!

[zampa28]

Se devi ricavare l'indice selezionato nella DDL durante un evento del datalist(ItemCommand, UpdateCommand, ....):

Sub MyDDL_Command(Obj As Object, e As
Dim MyIndice as Integer = CType(E.Item.FindControl("ID_Della_Tua_DDL"), DropDownList).SelectedIndex
End Sub

[Brod]

per il momento la mia pagina è questa:

sub datalistTool_UpdateCommand(o as object, e as DataListCommandEventArgs)

Dim conn As SQLConnection = New SQLConnection(ConfigurationSettings.AppSettings("c onn"))

dim cognome as textbox=ctype(e.item.findcontrol("FRMcognome"),tex tbox)

dim nome as textbox=ctype(e.item.findcontrol("FRMnome"),textbo x)

dim sesso as dropdownlist=ctype(e.item.findcontrol("FRMsesso"), dropdownlist)

Dim strSQL = "UPDATE Soci SET " & _
"cognome= '" & cognome.Text & "', " & _
"nome= '" & nome.Text & "', " & _
"sesso= '" & sesso.selecteditem.text & "', " & _
"WHERE Id = " & IdMod

conn.Open()

Dim Cmd as New SQLCommand(strSQL, conn)

Cmd.executenonquery()
conn.close()

datalistTool.EditItemIndex=-1
filldatalist()
datalistTool.databind()

end sub

.
..
...
....

<form runat="server">

<asp:datalist ID="datalistTool" DataKeyField="id" BorderWidth="0" CellPadding="0" CellSpacing="0" Width="970"
OnItemCommand="datalistTool_ItemCommand"
OnUpdateCommand="datalistTool_UpdateCommand"
OnEditCommand="datalistTool_EditCommand"
OnCancelCommand="datalistTool_cancelcommand"
OnDeleteCommand="datalistTool_deletecommand"
runat="server">

<headertemplate>
</headertemplate>

<itemtemplate>
<table border="0" width="970" cellspacing="0" cellpadding="0" >

.
..
...
....

<td valign="middle" align="center">
<asp:linkbutton ID="btUpdate" CommandName="update" Text="Aggiorna" runat="server">[img]images/save.gif[/img]</asp:linkbutton></td>

<td valign="middle" align="center">
<asp:linkbutton ID="btDelete" CommandName="delete" Text="Elimina" runat="server">[img]images/cestino.gif[/img]</asp:linkbutton></td>

.
..
...
....

<td width="130">Sesso:</td>
<td width="50">
<asp:dropdownlist ID="FRMsesso" runat="server" >
<asp:listitem Value="M" Text="M"></asp:listitem>
<asp:listitem Value="F" Text="F"></asp:listitem>
</asp:dropdownlist></td>

.
..
...
....

</asp:datalist>

</form>


Dove devo infilarla la funzione che dici??

[zampa28]

sub datalistTool_UpdateCommand(o as object, e as DataListCommandEventArgs)
 
Dim conn As SQLConnection = New SQLConnection(ConfigurationSettings.AppSettings("conn"))		

dim cognome as textbox=ctype(e.item.findcontrol("FRMcognome"),textbox) 

dim nome as textbox=ctype(e.item.findcontrol("FRMnome"),textbox) 

dim sesso as dropdownlist=ctype(e.item.findcontrol("FRMsesso"),dropdownlist) 

Dim strSQL = "UPDATE Soci SET " & _
"cognome= '" & cognome.Text & "', " & _ 
"nome= '" &  nome.Text & "', " & _ 
"sesso= '" & sesso.selecteditem.text & "', " & _ 
"WHERE Id = " & IdMod
 		
conn.Open() 

Dim Cmd as New SQLCommand(strSQL, conn) 

Cmd.executenonquery() 
conn.close() 

Select Case sesso.selecteditem.text
   Case "M"
      e.item.findcontrol("FRMsesso").SelectedIndex = 0
   Case "F"
      e.item.findcontrol("FRMsesso").SelectedIndex = 1
End Select

datalistTool.EditItemIndex=-1 
	filldatalist() 
datalistTool.databind() 
	
end sub

[Brod]

Se funziona mi hai salvato la vita! :gren:
Ti faccio risapere,
grazie mille

[Brod]

Mi da questo errore

SelectedIndex" non è un membro di "System.Web.UI.Control".