FAVOR AYUDA URGENTE CON UN BROWSER

Post Reply
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

FAVOR AYUDA URGENTE CON UN BROWSER

Post by Miguel Rivera »

Hola Amigos:

Les pido disculpas por usar este foro para hacer una pregunta de FW 2.4, pero estoy super complicado.


Como puedo manejar el Browser (Tcbrowse) como un arreglo que cargare con datos de una DBF, siempre el manejado _ de la dbf directo en el BROWSER, pero es urgente hacer el browser con arreglo.

USE FW 2.4, CLIPPER 5.3 y BLINKER 7.0.

Saludos,
Miguel

ESTE ES EL CODIGO PARA MANEJAR BASE DBF

Redefine Browse oLbx1 Id 110 Of oDialogo Grid;
On DblClick (Mues_cot(),oLbx1:Refresh(), oLbx1:SetFocus())
oLbx1:oFont := TFont():New( "MS Sans Serif", 0, -15,, .T. )
oLbx1:nFreeze := 1
oLbx1:nClrBackFocus := RGB(48,207,100)
oLbx1:bKeyChar := {| nKey, nFlags | iIf(nKey == 13,Mues_cot(),)}
Add Column To Browse oLbx1 Data edificio->nom_edi;
Head "Edificio" Width 270 Tag "Edificio"
Add Column To Browse oLbx1 Data spac(3)+oDbdep->Cod_dep;
Head "Departa" Width 70 Tag "Departamento"
Add Column To Browse oLbx1 Data Oridep->Det_ori;
Head "Orientación Dpto." Width 160 Tag "Orientación Dpto."
Add Column To Browse oLbx1 Data Tipodep->Can_dor;
Head "Dormi." Width 70 Tag "Dormi."
Add Column To Browse oLbx1 Data Tipodep->Can_ban;
Head "Baños" Width 70 Tag "Baños"
Add Column To Browse oLbx1 Data oDbdep->Cos_dep;
Head "Costo" Width 80 Tag "Costo"

Define Column oCol Head "" Size 1
oLbx1:AddColumn(oCol)
Post Reply