Salve,
sto sviluppando via web una specie di calendario per il carico lavoro, ho creato una gridview e riempita da codice, riempio le celle e le coloro in base agli impegni che corrispondono a dei record e fin qui tutto bene.

Adesso vorrei se possibile cliccando su una cella della gridview che corrisponde ad un impegno aprire lo stesso per poterlo modificare.
Come posso fare?

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

table = New DataTable

column = New DataColumn()
column.DataType = System.Type.GetType("System.String")
column.ColumnName = "Codice"
column.ReadOnly = False
column.Unique = False
table.Columns.Add(column)

column = New DataColumn()
column.DataType = System.Type.GetType("System.String")
column.ColumnName = "Tecnico"
column.ReadOnly = False
column.Unique = False
table.Columns.Add(column)

For i = 1 To 31
column = New DataColumn()
column.DataType = System.Type.GetType("System.String")
column.ColumnName = i.ToString
column.ReadOnly = False
column.Unique = False
table.Columns.Add(column)
Next



CaricaDipendenti()


Me.dgvCalendarioMese.DataSource = table

Me.dgvCalendarioMese.DataBind()

FormattaGrid(Me.dgvCalendarioMese)




End Sub


Public Sub CaricaDipendenti()
Try
Dim nome As DayPilot.Web.Ui.Resource
Dim i As Integer

Dim connectionString = ConfigurationManager.ConnectionStrings("DBHRConnectionString").ConnectionString
Using conn = New SqlConnection(connectionString)
conn.Open()
Using cmd = conn.CreateCommand()
cmd.CommandText = "SELECT ANSURNAM, ANNAME, hrdd_000001employee00.IDEMPLOY FROM hrdd_000001employee00 " & _
"Inner join hrdd_000001employee11 " & _
"on hrdd_000001employee00.IDCOMPANY = hrdd_000001employee11.IDCOMPANY " & _
"And hrdd_000001employee00.IDEMPLOY = hrdd_000001employee11.IDEMPLOY " & _
"WHERE hrdd_000001employee11.DTLAYOFF is null " & _
"ORDER BY ANSURNAM, ANNAME "

Using reader = cmd.ExecuteReader()
While reader.Read()
i = i + 1

row = table.NewRow()

row("Codice") = reader("IDEMPLOY")
row("Tecnico") = reader("ANSURNAM") & " " & reader("ANNAME")

CaricaDati(reader("IDEMPLOY"))

table.Rows.Add(row)

End While
End Using
End Using
End Using


Catch ex As Exception
ClsFileLog.ScriviLog(ex.Message, Session.Item("User"))
End Try
End Sub


Public Sub CaricaDati(ByVal Dipendente As String)
Dim GF As Integer
Dim GI As Integer
Dim GX As Integer
Dim i As Integer

Try

i = 0
For i = 2 To 32
row(i) = " "
Next

Dim connectionString = ConfigurationManager.ConnectionStrings("HTS_GestioneConnectionString").ConnectionString
Using conn = New SqlConnection(connectionString)
conn.Open()
Using cmd = conn.CreateCommand()
cmd.CommandText = "SELECT * FROM P_Eventi " & _
"WHERE Operatore = " & Dipendente & " " & _
"ORDER BY Inizio "

Using reader = cmd.ExecuteReader()
While reader.Read()

GI = Day(reader("Inizio"))
GF = Day(reader("Fine"))

GX = GI - 1
i = 0
For i = GI To GF
GX = GX + 1
row(GX.ToString) = reader("Cliente") & " " & reader("Note")
Next

End While
End Using
End Using
End Using

Catch ex As Exception
ClsFileLog.ScriviLog(ex.Message, Session.Item("User"))
End Try

End Sub
Public Sub FormattaGrid(ByRef dgv As GridView)
For i As Integer = dgvCalendarioMese.Rows.Count - 1 To 1 Step -1
Dim row As GridViewRow = dgv.Rows(i)
Dim CS As Integer
Dim saveCellaInizio As Integer

CS = 1
saveCellaInizio = 0
For j As Integer = 2 To row.Cells.Count - 1
If j < row.Cells.Count - 1 Then ' se non è l'ultimo record



If row.Cells(j).Text <> " " Then
If saveCellaInizio = 0 Then 'Salvo la prima cella
saveCellaInizio = j
End If
If row.Cells(j).Text = row.Cells(j + 1).Text Then

CS = CS + 1
row.Cells(saveCellaInizio).ColumnSpan = CS
row.Cells(j).BackColor = Drawing.Color.Aquamarine
row.Cells(j + 1).Visible = False
Else
CS = 1
saveCellaInizio = 0
End If
End If
Else

If row.Cells(j).Text <> " " Then
row.Cells(j).BackColor = Drawing.Color.Aquamarine
End If

End If
Next
Next

Protected Sub dgvCalendarioMese_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles dgvCalendarioMese.RowCreated

e.Row.Cells(0).Width = 50
e.Row.Cells(1).Width = 200

' e.Row.Cells(0).Height = 15


For x = 2 To 32
e.Row.Cells(x).Width = 25
e.Row.Cells(x).Height = 15
' e.Row.Cells(x).Wrap = False
Next
End Sub



End Sub

Ciao Moreno,
ti ringrazio per la dritta, ho provato a seguire l'esempio ma ho una serie di problemi, inizio dal primo, mi si creano il doppio delle colonne mi sai dire il perché?
Es. io disegno 33 colonne nella pagina in ASP:

<asp:GridView ID="dgvCalendarioMese" runat="server"
EnableSortingAndPagingCallbacks="True" >
<Columns>
<asp:BoundField DataField="Codice" HeaderText="Codice" ItemStyle-Width = "150" />
<asp:BoundField DataField="Tecnico" HeaderText="Tecnico" ItemStyle-Width = "150" />
<asp:HyperLinkField DataTextField="1" DataNavigateUrlFields="1" DataNavigateUrlFormatString="~/PlanningGestione.aspx?Id={0}"
HeaderText="1" ItemStyle-Width = "25" />
<asp:HyperLinkField DataTextField="2" DataNavigateUrlFields="2" DataNavigateUrlFormatString="~/PlanningGestione.aspx?Id={0}"
HeaderText="2" ItemStyle-Width = "25" />
<asp:HyperLinkField DataTextField="3" DataNavigateUrlFields="3" DataNavigateUrlFormatString="~/PlanningGestione.aspx?Id={0}"
HeaderText="3" ItemStyle-Width = "25" />
ecc.

Riempio la table con 33 colonne con gli stessi nomi:
Es.
table = New DataTable

table.Columns.AddRange(New DataColumn(32) {New DataColumn("Codice"), New DataColumn("Tecnico"), New DataColumn("1"), New DataColumn("2"), New DataColumn("3"), _
New DataColumn("4"), New DataColumn("5"), New DataColumn("6"), New DataColumn("7"), New DataColumn("8"), New DataColumn("9"), New DataColumn("10"), _
New DataColumn("11"), New DataColumn("12"), New DataColumn("13"), New DataColumn("14"), New DataColumn("15"), New DataColumn("16"), New DataColumn("17"), _
New DataColumn("18"), New DataColumn("19"), New DataColumn("20"), New DataColumn("21"), New DataColumn("22"), New DataColumn("23"), New DataColumn("24"), _
New DataColumn("25"), New DataColumn("26"), New DataColumn("27"), New DataColumn("28"), New DataColumn("29"), New DataColumn("30"), New DataColumn("31")})


table.Rows.Add(reader("IDEMPLOY"), reader("ANSURNAM") & " " & reader("ANNAME"), Array(1).ToString, Array(2).ToString, Array(3).ToString, Array(4).ToString, Array(5).ToString, _
Array(6).ToString, Array(7).ToString, Array(8).ToString, Array(9).ToString, Array(10).ToString, Array(11).ToString, Array(12).ToString, Array(13).ToString, _
Array(14).ToString, Array(15).ToString, Array(16).ToString, Array(17).ToString, Array(18).ToString, Array(19).ToString, Array(20).ToString, Array(21).ToString, _
Array(22).ToString, Array(23).ToString, Array(24).ToString, Array(25).ToString, Array(26).ToString, Array(27).ToString, Array(28).ToString, Array(29).ToString, _
Array(30).ToString, Array(31).ToString)

Me.dgvCalendarioMese.DataSource = table
Me.dgvCalendarioMese.DataBind()

Hai ragione, mi era sfuggito, grazie mille.
Adesso posso proseguire con i test.