mpulla
unread,Sep 17, 2011, 12:23:18 AM9/17/11Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to Comunidad de Visual Foxpro en Español
Estimados foxeros.
Tengo FVP 9.0 SP2, y VFP 8.0 instalados en Mi maquina
Desde VFP 9.0 ejecuto el siguiente codigo y al ver los cursores de
deportes y estudios solo me muestra los primer registro que contiene
el codigo del empleado, es decir el indice actua como filtro
Baje el archivo VFP9SP2RT y lo instale pero sigo con el mismo
problema.
Cual puede ser el problemas y su solucion.
Saludos.
Mauricio
CLOSE TABLES
CREATE CURSOR Empleado (cEmpleadoId C(5), cNombre C(30), cTelefono
C(10))
INSERT INTO Empleado VALUES('01031', 'Maurio Pulla', '084248239')
INSERT INTO Empleado VALUES('01666', 'Juan Diego Pulla', '0141414411')
INSERT INTO Empleado VALUES('01012', 'Maria Paula Pulla', '147711145')
INSERT INTO Empleado VALUES('08885', 'Juan Fransisco Pulla',
'8847441145')
INDEX On cEmpleadoId TAG EmpcEmp
CREATE CURSOR Deportes (cDeporteId C(3), cNombre C(15), cEmpleadoId
C(10))
INSERT INTO Deportes VALUES ('Alp', 'Alpinismo', '01031')
INSERT INTO Deportes VALUES ('Bal', 'Baloncesto', '01031')
INSERT INTO Deportes VALUES ('Box', 'Boxeo', '01031')
INSERT INTO Deportes VALUES ('Bes', 'Béisbol', '01666')
INSERT INTO Deportes VALUES ('ken', 'Kendo', '01666')
INSERT INTO Deportes VALUES ('Kar', 'Karting', '01666')
INSERT INTO Deportes VALUES ('Nat', 'Natación', '01012')
INSERT INTO Deportes VALUES ('Rem', 'Remo', '01012')
INSERT INTO Deportes VALUES ('Rug', 'Rugby', '01012')
INSERT INTO Deportes VALUES ('Vel', 'Vela', '08885')
INSERT INTO Deportes VALUES ('Vol', 'Voleibol', '08885')
INSERT INTO Deportes VALUES ('Wat', 'Waterpolo', '08885')
INDEX On cEmpleadoId TAG DepcEmp
CREATE CURSOR Estudios (cEstudioId C(3), cNombre C(50), cEmpleadoId
C(10))
INSERT INTO Estudios VALUES ('Abg', 'Abogado', '01031')
INSERT INTO Estudios VALUES ('Agr', 'Agrónomo', '01031')
INSERT INTO Estudios VALUES ('Ale', 'Alergólogo', '01031')
INSERT INTO Estudios VALUES ('Ast', 'Astrólogo', '01666')
INSERT INTO Estudios VALUES ('Bib', 'Bibliógrafo', '01666')
INSERT INTO Estudios VALUES ('Cir', 'Cirujano', '01666')
INSERT INTO Estudios VALUES ('Fis', 'Fisioterapeuta', '01012')
INSERT INTO Estudios VALUES ('For', 'Forense', '01012')
INSERT INTO Estudios VALUES ('Ing', 'Ingeniero', '01012')
INSERT INTO Estudios VALUES ('Mic', 'Microbiológico', '08885')
INSERT INTO Estudios VALUES ('Odo', 'Odontólogo', '08885')
INSERT INTO Estudios VALUES ('Soc', 'Sociólogo', '08885')
INDEX On cEmpleadoId TAG EstcEmp
*-- Abrir la tabla padre
SELECT Empleado
SET RELATION TO cEmpleadoId INTO Deportes
SET RELATION TO cEmpleadoId INTO Estudios ADDITIVE
SET SKIP TO Estudios, Deportes