AYUDA URGENTE CON UN BROWSE
Posted: 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 _ 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)
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.
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)