Amigos

favor su ayuda comienzo a utilizar la clase TMsql y necesito abrir un combobox relacionando 2 tablas, por un código en común, aquí un ejemplo de como lo realizo:

***ABRO LAS TABLAS
::oCliente := ::oMain:oCon:Query( "SELECT * FROM MAANALIS" ) //esta tabla contiene un campo TIPO_CLIENTE

::oTipo_Clientes := ::oMain:oCon:Query( "SELECT * FROM COTIPANA" ) //esta tabla contienen los tipos de clientes

*** CREO UN ARREGLO CON LOS DATOS DEL TIPO DE CLIENTES PARA LUEGO RELACIONARLO CON CADA CLIENTE
::aCte := Array( 02 )
::aCte[01] := {}
::aCte[02] := {}

WHILE !::oTipo_Clientes :eof()
AAdd( ::aCte[01], ::oTipo_Clientes:descripcion )
AAdd( ::aCte[02], ::oTipo_Clientes:tipo_cliente )
::oTipo_Clientes:skip()
ENDDO

*** ASI INTENTO RELACIONAR LAS TABLAS, para mostrar el la seleccion en el combobox
::vCmb[01] := ::aCte[01][max( 1,aScan( ::aCte[02], { |a|a = ::oClientes("TIPO_CLIENTE") } ) ) ]

***LUEGO ABRO EL COMBOBOX EN UN DIALOGO

  Redefine ComboBox ::oCmb[01] VAR ::vCmb[01] Id 107 Of oDlg1 Items ::aCte[01]

No logro hacer que al seleccionar un cliente se muestre asociado a un tipo..

alguna sugerencia, se los agradezco

salu2

Puedes mostrar una captura de pantalla para ver el diálogo ? gracias

Antonio Linares wrote:Puedes mostrar una captura de pantalla para ver el diálogo ? gracias

Es un combo desde código o recursos ???

Saludos

horacio wrote:Es un combo desde código o recursos ???

Saludos

Si utilizas Pelles-C, prueba desactivar el estilo sort.

Saludos

horacio wrote:Si utilizas Pelles-C, prueba desactivar el estilo sort.

Saludos

Hola,

muchas veces para asociar dos arrays con un COMBOBOX, como ser códigos y descripciones, es mejor utilizar del DBCOMBO

REDEFINE DBCOMBO ::oCmb[01] ;
VAR ::vCmb[01] ;
ID 107 ;
OF oDlg1
LIST ::aCte[01] ;
ITEMS ::aCte[02]

saludos

Marcelo

Marcelo Via Giglio wrote:Hola,

muchas veces para asociar dos arrays con un COMBOBOX, como ser códigos y descripciones, es mejor utilizar del DBCOMBO

REDEFINE DBCOMBO ::oCmb[01] ;
VAR ::vCmb[01] ;
ID 107 ;
OF oDlg1
LIST ::aCte[01] ;
ITEMS ::aCte[02]

saludos

Marcelo

Hola,

debes de incluir el archivo de cabecera en tu prg

include "dbcombo.ch"

saludos

Marcelo