Buenas he estado probando esto y funciona bien, pero una apreciación El e del system.eventargs del butón no es el que contiene la propiedad CommandArgument, es el sender el que lo tiene Un ejemplo:
Cita: Private Sub CrearBotonesGrupos(ByVal objPerfilesProfesionales_Col As OBJ_PORTALASISTENCIA.PERFILESPROFESIONALES_col)
Dim botonGrupo As Button
Dim intContador As Integer = 0
Try
For intContador = 0 To objPerfilesProfesionales_Col.Count - 1
botonGrupo = New Button
botonGrupo.ID = "btnGrupo_" & intContador
botonGrupo.Text = objPerfilesProfesionales_Col(intContador).DES_PERF IL
botonGrupo.CssClass = "boton-prueba"
botonGrupo.Width = "210"
botonGrupo.Height = "20"
botonGrupo.CommandArgument = objPerfilesProfesionales_Col(intContador).COD_PERF IL
AddHandler botonGrupo.Click, AddressOf Boton1_Click
pnlGrupos.Controls.Add(botonGrupo)
Next
Catch ex As Exception
End Try
End Sub
y el evento definido:
Cita:
Protected Sub Boton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim sUrl As String = "DetalleAsignatura.aspx"
Dim sScript As String = "<script>alert('" & sender.CommandArgument & "');</script>"
Response.Write(sScript)
End Sub