DropDownList

[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