AYUDA URGENTE CON UN BROWSE

AYUDA URGENTE CON UN BROWSE

Postby Miguel Rivera » Wed Feb 28, 2007 9:20 pm

Hola Amigos:

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

Uso 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)
Miguel Rivera
 
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 2 guests