FoxPro/Visual FoxPro - Datos para una Grid????

 
Vista:

Datos para una Grid????

Publicado por alejandro ramos (19 intervenciones) el 24/06/2004 19:08:46
Hola Amigos

Quiero solicitarles el favor, si me puden ayudar para realizar el codigo que me permita hacer:

Tengo tres tablas, una son datos persoanles de un alumno, otro los datos de los codigosy nombres de materias y en otra esta la relacion de datos alumnosy materias.

La pregunta es como hago para que en una grid se visualicen los datos del estudiante, en otra grid los datos del codigo de materia, nombre materia y nota cuando yo escoja de un combo el codigo del estudiante.

Es decir como soncronizo el combo con las tablas

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Datos para una Grid????

Publicado por Evelyn (16 intervenciones) el 25/06/2004 02:16:50
Es lago reeeecontra sencillito... aunque pensandolo bien no tanto jejeje
bueno aqui te va algo de lo que hice :

* * * * * * * * * * * * * * * * * * * * * * * *
* En el evento Load carga las tablas

Open database "c:\base1"

USE Base1!Alumnos IN 0 ORDER 1
Select Alumnos

USE Base1!Datos IN 0 ORDER 1
Select Datos

USE Base1!Materia IN 0 ORDER 1
Select Materia

* Ojo uso una base de datos aunque tambien funciona con tablas libres
* Si te percataste al abrir la tabla con USE uso la clausula IN y la
* clausula ORDER ... si quieres saber por que los uso anda a la ayuda
* de visual fox pro ya que son importantes para la relacion de tablas
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * ** * * * * * * * * Evento INI del Form * * * * * * * * * * * * * * *
*carga el combo
This.Combo1.ControlSource = "Alumnos.codigo"
This.Combo1.RowSourceType = 6 && campos
This.Combo1.RowSource = "Alumnos.codigo"

Select datos
Set Relation To Cod_Materia Into Materia

This.grdDatos.Recordsource = "Datos"
This.grdDatos.ColumnCount = 3

WITH This.grdDatos
.Column1.ControlSource = "Datos.Cod_Materia"
.Column1.header1.caption = "Codigo"
.Column2.ControlSource = "Materia.Descripcio"
.Column2.header1.caption = "Materia"
.Column3.ControlSource = "Datos.Nota1"
.Column3.header1.caption = "Nota1"
ENDWITH

cCondicion = "Cod_Alum ='" + Alltrim(Thisform.Combo1.value) + "%2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar