Ver Mensaje Individual
  #1 (permalink)  
Antiguo 15/07/2011, 16:29
laandrade1
 
Fecha de Ingreso: julio-2011
Mensajes: 7
Antigüedad: 12 años, 10 meses
Puntos: 0
Pregunta codigo para las tablas dinamicas.solo um proble colaborenme

Public Class _Default
Inherits System.Web.UI.Page
Public can, can2 As New conteo
Dim envio As New notas
Public not_cog, not_procedi, not_actitudi, not_pruebaf As New TextBox

Public conteo2 As Integer


Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

can.conteo(DropDownList1)

Dim O_conexion As New C_conexion
Dim text As TextBox = New TextBox
text.Text = can.can
O_conexion.conectarBd()
O_conexion.Conectar.Open()
'Try


O_conexion.query_sql2.CommandText = "SELECT * FROM cursos INNER JOIN estudiantes ON cursos.id_curso = estudiantes.id_curso where cursos.id_curso='" + DropDownList1.Text + "'"
O_conexion.query_sql2.Connection = O_conexion.Conectar
O_conexion.leer2 = O_conexion.query_sql2.ExecuteReader()
conteo2 = can.can
For j = 0 To can.can - 1

' Generate rows and cells.


Dim r As New TableRow
r.BackColor = Drawing.Color.Aqua
If (O_conexion.leer2.Read()) Then
Dim colum_id As New TableCell()
Dim colum_nombres As New TableCell()
Dim colum_primer_apel As New TableCell()
Dim colum_seg_apel As New TableCell()
Dim colum_dir As New TableCell()
Dim colum_tel As New TableCell()
Dim colum_movil As New TableCell()
Dim colum_programa As New TableCell()
Dim colum As New TableCell()
Dim nota As New TableCell()
Dim nota3 As New TableCell()
Dim nota4 As New TableCell()
Dim botones As New TableCell()
Dim bt As Button
Dim iden As Label = New Label

colum_id.Controls.Add(New LiteralControl(Convert.ToString(O_conexion.leer2(" id_estudiante")))) ' se le asigna ala columna de la tabla donde r es la fila y colum_id es la columna
r.Cells.Add(colum_id)
not_pruebaf.Text = O_conexion.leer2("id_estudiante")
colum_nombres.Controls.Add(New LiteralControl(Convert.ToString(O_conexion.leer2(" primer_nombre"))))
r.Cells.Add(colum_nombres)

colum_primer_apel.Controls.Add(New LiteralControl(Convert.ToString(O_conexion.leer2(" primer_apellido"))))
r.Cells.Add(colum_primer_apel)

colum_seg_apel.Controls.Add(New LiteralControl(Convert.ToString(O_conexion.leer2(" segundo_apellido"))))
r.Cells.Add(colum_seg_apel)

'Dim nota_cog As TextBox = New TextBox
t.tablas()
t.cognitiva.Text = ""


colum.Controls.Add(t.cognitiva)
r.Cells.Add(colum)



Dim nota_proce As TextBox = New TextBox

nota.Controls.Add(nota_proce)
r.Cells.Add(nota)


Dim nota_acti As TextBox = New TextBox

nota3.Controls.Add(nota_acti)
r.Cells.Add(nota3)


Dim prueba_final As TextBox = New TextBox

nota4.Controls.Add(prueba_final)
r.Cells.Add(nota4)
Table1.Rows.Add(r)
End If

Next j

envio.subir_notas(not_pruebaf.Text)
O_conexion.Conectar.Close()
' Catch ex As Exception
'MsgBox("Error " & ex.Message, MsgBoxStyle.Critical, "Error")
' End Try
End Sub

Public Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click


End Sub
End Class

este es el codigo con que se generan las tablas dinamicas, busque e investigue aqui les dejo este aporte.
pero hay un problema , generaro las tablas dinamicas mediante una consulta de sql, esta se generan cuando doy click en el boton1, se genera normamente, pero esos texboxt al iguar que la column colum_id las quiero enviarla como parametro a un metodo de una clase, esto lo quiero hacer con el segundo boton de la misma forma, pero me encuentro que no es posible ya que si declaro los textboxt publicos nu mas me genera una sola linea de cuatro texboxt con lo cual no soluciona mi problema y si los le asigno una variable que seria publica para enviar los parametro lo hace pero salen en blaco, mi pregunta es. como hago para que el segundo boton por asi decirlo "herede los texbox dinamicos que crea el primer boton¿?¿??¿?¿?¿?¿?¿