FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambiando en tiempo de ejecuci贸n la tabla en un listbox
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM

Cambiando en tiempo de ejecuci贸n la tabla en un listbox

Posted: Wed Nov 13, 2019 11:19 AM
Buenos d铆as compa帽eros

Trabajo con DBF/CDX. Y pretendo que un mismo listbox me muestre el contenido de distintas tablas DBF NO indexadas y que son exactamente iguales en cuanto a campos.

Es decir, tengo un listbox funcionando perfecto del tipo:
Code (fw): Select all Collapse
select 36
Redefine listbox olistbox fields tran(&bdvendedorC->cantidad,'@E9999.99') id 4001 of oti headers 'Udes' sizes 55 font ofont1


Esta tabla NO est谩 indexada. Necesito en tiempo de ejecuci贸n cambiar de tabla respetando tambi茅n el select 36... Es decir:

Code (fw): Select all Collapse
select 36 ; &bdvendedorC->(dbclosearea())
bdvendedorC='usuarioC'
select 36 ; use &bdvendedorC alias &bdvendedorC exclu


..hasta aqu铆 todo perfecto...,
pero cuando hago un olistbox:refresh() o un olistbox:gobottom(),


me genera un error del tipo:
Area de trabajo no usada: DBGOBOTTOM

... y no es capaz de seleccionar la tabla 36, cuando realmente ya se lo indico anteriormente. Supongo que la soluci贸n pasa por rearmar nuevamente el listbox... pero 驴C贸mo lo hago?

Un ejemplo, por favor...!!

Mil gracias.
LORENZO.
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Cambiando en tiempo de ejecuci贸n la tabla en un listbox

Posted: Wed Nov 13, 2019 02:43 PM
Loren wrote:
Trabajo con DBF/CDX. Y pretendo que un mismo listbox me muestre el contenido de distintas tablas DBF NO indexadas y que son exactamente iguales en cuanto a campos.


Lorenzo, yo hago exactamente eso, pero usando XBrowse. Todo consiste en actualizar el calias al objeto oBrw (aqui oLbx).
Ej:
Code (fw): Select all Collapse
   REDEFINE BTNBMP oDoc1 ID 221 OF oDlg RESOURCE "cdiario" LEFT 2007  ;
                 ACTION( dbSelectArea("comprobd"), cAlias:=Alias(),;
                              oLbx:cAlias:=cAlias, oLbx:Refresh(), oLbx:SetFocus() )

   REDEFINE BTNBMP oDoc2 ID 222 OF oDlg RESOURCE "RCAJARJ2"  LEFT 2007  ;
                 ACTION ( dbSelectArea("RecibCaj"), cAlias:=Alias(),;
                               oLbx:cAlias:=cAlias, oLbx:Refresh(), oLbx:SetFocus() )

Espero te sirva de guia.
Saludos.
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM

Re: Cambiando en tiempo de ejecuci贸n la tabla en un listbox

Posted: Wed Nov 13, 2019 07:19 PM

FranciscoA

Que grande eres!!
Funcion贸 perfecto!!
Mil gracias.
LORENZO.

Continue the discussion