FiveTech Software tech support forums

Hola a todos. Vamos a ver.... Tengo dos tablas creadas y puedo acceder al contenido de ambas sin ningún problema. Ahora bien, tengo declarada las tablas de la siguiente forma y en este orden:

USE ( CurDir() + "\Clientes" ) VIA "DBFCDX"
Clientes->( OrdSetFocus( "nomcli" ) )
Clientes->( DbGoTop() )
USE ( CurDir() + "\articulos" ) VIA "DBFCDX" new
articulos->( OrdSetFocus( "cod_art" ) )
articulos->( DbGoTop() )

Hasta ahí todo bien.. El problema es que cuando muestro la información de las tablas en una lista, en la de articulos no hay problemas pero con la de clientes me repite cada registro tanto como registros tenga la tabla articulos, es decir, si articulos tiene solo 3 registros me repite cada nombre de cliente 3 veces y ademas solo me muestra en pantalla de 3 en 3, algo raro....

Alguien podría decirme en que estoy fallando??

Gracias a todos y saludos....

Elías Torres.

Hola,

Prueba en listbox de asociarle el alias

Code: Select all  Expand view

REDEFINE LISTBOX oLbx ... ALIAS ...

Saludos.

Elias,

REDEFINE LISTBOX oLbx1 ... ALIAS Clientes

REDEFINE LISTBOX oLbx2 ... ALIAS Articulos

Gracias Antonio y Carles. He probado lo que me habeis dicho pero me sigue saliendo de esta forma... No me da error pero me repite cada registro y ademas solo me muestra en pantalla esos tres registros...

Seguiré dándole vueltas a la cabeza, jeje...

Saludos y gracias...

Elías Torres.

Elias,

Borra y crea de nuevo los indices

Saludos.
C.

Carles,

He borrado los indices y los he creado de nuevo pero nada sigue igual...


Saludos.

Elias Torres

Elias,

Intenta poner el codigo q usas para las listas (lo mas breve posible)

C.

Carles,

El código que utilizo es este..


DEFINE dialog odlg resource "sele_cli"
redefine LISTBOX oBrw alias Clientes;
FIELDS hBmp, clientes->Nomcli, clientes->Apecli;
HEADERS "","Nombre", "Apellidos" ID 500 OF oDlg

obrw:bKeyChar = { | nKey, nFlags | Search( nKey, @cSearch ), oBrw:Refresh(),oSay:REFRESH()}

redefine say oSay prompt cSearch id 130 of odlg FONT oFont COLOR CLR_BLACK, CLR_WHITE

ACTIVATE dialog odlg;
on init cursores(odlg)


Saludos.

Elías Torres.

Elias,

No veo nada raro

yo probaria ahora

En el use:

Code: Select all  Expand view

USE ...  NEW
cAliasCliente := Alias()

y en el listbox

Code: Select all  Expand view

REDEFINE LISTBOX ... ALIAS (cAliasCliente)

Siau.
C.

Carles,

Ahora si .....


Gracias.

saludos

Elías Torres