FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Dos Browses en ARRAYS...
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Dos Browses en ARRAYS...

Posted: Mon Mar 24, 2014 02:17 PM
Adriano:
por lo que veo, es muy diferente tu codigo a lo que yo tome del ejemplo \samples\testmerg.prg

Sí, cada cabeza es un mundo.
con la instruccion "WITH OBJECT oBrw2" y dentro del dialogo las funciones que Cargadato1 y CargaDato2,

Esta instruccion te ahorra codigo y lo hace mas legible, sin embargo, puedes prescindir de ella, si lo deseas.
Respecto a donde coloco las funciones Cargadatos1() y Cargadatos2() es porque les envio los objetos oBrw1 y oBrw2, una vez definidos estos, ademas de enviarle los arrays, ya que es precisamente en estas funciones es donde cargo estos arrays con los datos de las dbfs correspondientes. De esta manera me aseguro que al pintarse por primera vez los browses, ya muestren los datos. Posteriormente, desde el primer oBrw, en el methodo bChange llamo a la funcion CargaDatos2(),

Fijate como declaro los arrays :
Code (fw): Select all Collapse
local aDatos1:={{"","","",""}}, aDatos2:={{"","",""}}

Deben declararse con tantos elementos como columnas tendrá el Browse. Luego, en las mencionadas funciones, los recargo con :SetArray()

Espero te funcione, y estamos a la orden, igual que Cristóbal y resto de Fivewinners.
Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion