Principales respuestas
LLenar un DataGrid

Pregunta
-
Hola.
Estoy tratando de hacer un proyecto en visual basic 6.0,y mi duda es como llenar las celdas de un datagrid, ya que n vb 2010 al momento que se esta ejecutando el programa se pueden llenar las celdas del DataGrid y el en Visual Basic 6.0 no me lo permite y no tengo idea de como se hace.
El Codigo que tengo en Visual Basic 2010 para enviarle los datos a las celdas es este:
Dim Alumnos() As Alumno Dim Notas(2) As Alumno Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click Dim Tamaño As Integer Tamaño = Convert.ToInt32(InputBox("Cuantos Alumnos va a agregar", "Ingreso de ALumnos")) Array.Resize(Alumnos, Tamaño) For i As Integer = 0 To Alumnos.GetUpperBound(0) Alumnos(i).Apellido = Convert.ToString(InputBox("Apellido del Alumno(a) :", "Información Personal")) Alumnos(i).Nombre = Convert.ToString(InputBox("Nombre del Alumno(a) : ", "Información Personal")) MessageBox.Show("Tendrá que Agregar 5 Notas", "Notas", MessageBoxButtons.OK, MessageBoxIcon.Information) Notas(0).Notas = InputBox("Nota 1: ", "Notas") Notas(1).Notas = InputBox("Nota 2: ", "Notas") Notas(2).Notas = InputBox("Nota 3: ", "Notas") DataGridView1.Rows.Add(Alumnos(i).Apellido, Alumnos(i).Nombre, Alumnos(i).Edad,Notas(0).Notas, Notas(1).Notas, Notas(2).Notas, Notas(3).Notas ) Next End Sub
Se que para el Visual 6.0 cambiaria pero no se como programarlo en ese Lenguaje(vb 6.0).
Estudiante de Sistemas Informáticos.
Respuestas
Todas las respuestas
-
Descarga este ejemplo:http://www.tucondominioaldia.com.ve/archivos/ejemGrid.zip
Si bien es para Microsoft Access, puedes emplear el código en Visual Basic 6.0
Las rejillas se llenan ' a mano', con excepción de las rejillas Data, que tienen un origen de control.
-
Hola guarracuco.
Gracias por Responder.
Pondré el codigo que yengo hecho en VB.6.0 es este:
Private Type Alumno Apellido As String Nombre As String Materia As String Notas As Double End Type Private Sub Command1_Click() Dim Alumnos() As Alumno Dim Notas(3) As Alumno Dim Tamaño As Integer Dim i As Integer Tamaño = (InputBox("Cuantos Alumnos va a agregar", "Ingreso de ALumnos")) ReDim Preserve Alumnos(Tamaño) For i = 0 To UBound(Alumnos) Alumnos(i).Apellido = (InputBox("Apellido del Alumno(a) :", "Información Personal")) Alumnos(i).Nombre = (InputBox("Nombre del Alumno(a) : ", "Información Personal")) Alumnos(i).Materia = (InputBox("Materia: ", "Información Personal")) Notas(0).Notas = InputBox("Nota 1: ", "Notas") Notas(1).Notas = InputBox("Nota 2: ", "Notas") Notas(2).Notas = InputBox("Nota 3: ", "Notas") Notas(3).Notas = InputBox("Nota Final: ", "Notas") DataGrid1.Columns(0) = Alumnos(i).Apellido DataGrid1.Columns(1) = Alumnos(i).Nombre DataGrid1.Columns(2) = Alumnos(i).Materia DataGrid1.Columns(3) = Notas(0).Notas DataGrid1.Columns(4) = Notas(1).Notas DataGrid1.Columns(5) = Notas(2).Notas DataGrid1.Columns(6) = Notas(3).Notas Next End Sub
En Lugar de Columns intente usar el Rows pero no me hace nada no agrega los datos correspondientes.
Como puedo solucionar este problema, o habra otro control que me permita hacer lo mismo que el DataGrid de forma mas sencilla...
No He podido solucionar este problema, ya que no son bases de datos las que intento manejar sino solo mandarle los datos que el usario indique, pero como mencione tengo problemas en eso de llenar las celdas del DataGrid y no se como solucionarlo, solo tengo la solucion hecha en VB 2010 y veo que el DatGrid se usa de manera mas facil, Vengo de Programar en VB 2010 y necesito que me den una ayudadita en este Problema que tengo.
Si en algo me equivoco corregirme por favor ya que es primera vez que programo en el VB.6.0.
Estudiante de Sistemas Informáticos. -
-