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

Spero vivamente d mi possiate dare una mano

Grazie