sub modifica_allievo (obj as object, e as datagridcommandeventargs)
'document.getElementById(label3).focus()
mydatagrid2.edititemindex=e.item.itemindex
dim o as integer=valore_fisso.text
dim objcmd as new oledbdataadapter ("select * from corsisti where num="& o &" and contatti='no' and numero_tessera_corsista<>'0' order by cognome_corsista asc" , objconn)
dim ds as dataset=new dataset()
objcmd.fill (ds,"corsisti")
mydatagrid2.datasource=ds.tables("corsisti").defau ltview
mydatagrid2.databind
dim num as integer=0
dim mydatagriditem as datagriditem
for each mydatagriditem in mydatagrid2.items
num=num+1
next
dim numero_allievi_presenti as string=num
num_allievi.text=num
pippo.visible=true
intestazione.visible=true
mydatagrid2.visible=true
'per intestazione
dim objcmd2 as new oledbdataadapter ("select * from corso where id=" & valore_fisso.text, objconn)
dim ds2 as dataset=new dataset()
objcmd2.fill (ds2,"corso")
intestazione.datasource=ds2.tables("corso").defaul tview
intestazione.databind
'valore.text=session("pippo")
allievi_totali_nel_periodo()
totale.visible=true
tabella_eliminazione_ALLIEVO.visible=false
conferma_elimina_allievo.visible=false
Select Case e.Item.ItemType
Case ListItemType.EditItem
Dim tb As TextBox = DirectCast(e.Item.Cells(5).Controls(0), TextBox)
Dim ClientID As String = tb.ClientID
Me.ClientScript.RegisterStartupScript(Me.GetType, "load", String.Format("document.getElementById(""{0}"").fo cus();", ClientID), True)
End Select
end sub
Rispondi quotando