![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#6
|
||||
|
||||
|
Pseudocodigo...
Código:
Open E1
Open E2
// Recorro Excel 1
while not EOF(E1)
begin
BuscarCategoriaEnE2(E1.CATEGORIA)
if Encontro
Informar(Diferencias)
else
Informar("La categoria " + E1.CATEGORIA + " no Existe en E2")
end
Close E1
Close E2
Open E1
Open E2
// Recorro Excel 2
while not EOF(E2)
begin
BuscarCategoriaEnE1(E2.CATEGORIA)
if not Encontro
Informar("La categoria " + E2.CATEGORIA + " no Existe en E1")
end
Close E1
Close E2
|
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Hagamos entre todos un programa (No Novatos) | Caral | La Taberna | 29 | 23-07-2008 19:24:45 |
| Obtener todos los datasets de un tdatamodule | jlrbotella | Conexión con bases de datos | 3 | 18-05-2007 08:59:25 |
| Mover todos los elementos entre dos listbox | creus | Varios | 2 | 05-11-2006 11:59:37 |
| Abstracción de aplicación por departamentos | adlfv | OOP | 2 | 26-10-2005 07:46:38 |
| Obtener TODOS los registros de una tabla | Fita | SQL | 2 | 06-09-2005 03:06:24 |
|