Passing column-info via variable to twbrowse

[Marc Vanzegbroeck]

Hi,

I'm converting some self created function from DBF to ADO/MySQL

In a browse-routine I gine the information of the field-info with a parameter like :

Code: Select all  Expand view  RUN

vvelden = 'FACTUI->FACTUURNR,FACTUI->FIRMA'
browse(..,..,..,..,vvelden)

Func mbrowse(..,..,..,..,vvelden
 REDEFINE LISTBOX sGetlist FIELDS &(vVelden) ALIAS alias() HEADER &(vTitels) ID 101 OF oDlg COLOR 'N/W*'

This is working fine.
I want to reuse the function for ADO, but here I have a problem
This is what I do:

Code: Select all  Expand view  RUN

vvelden = 'oRs:fields("FACTUURNR"):value,oRs:fields("FIRMA"):value'
browse(..,..,..,..,vvelden)

Func mbrowse(..,..,..,..,vvelden
 REDEFINE LISTBOX sGetlist FIELDS &(vVelden) HEADER &(vTitels) ID 101 OF oDlg COLOR 'N/W*'

The error that U get is 'Variable does not exist oRs'

When I do this:

Code: Select all  Expand view  RUN

REDEFINE LISTBOX sGetlist FIELDS oRs:fields("FACTUURNR"):value,oRs:fields("FIRMA"):value HEADER &(vTitels) ID 101 OF oDlg COLOR 'N/W*'

It's working fine.

How can I use a variable to assinging the fields?

[Rick Lipkin]

Marc

I asked ( sort of ) the same question using xBrowse ..

viewtopic.php?f=3&t=24993

The key was creating an array for the Headers

aHeader := {}
AAdd( aHeader, "Column1" )
AAdd( aHeader, "Column2" )
AAdd( aHeader, "Column3" )

Func mbrowse(..,..,..,..,aHeader )

Not sure this will work with listbox ( i prefer xBrowse ) ..

Code: Select all  Expand view  RUN

REDEFINE LISTBOX sGetlist ;
              FIELDS &(vVelden);
              ALIAS alias() ;
              HEADER aHeader ;
              ID 101 OF oDlg COLOR 'N/W*'
 

Rick Lipkin

[Marc Vanzegbroeck]

Rick,

I want to pass the fields and not the headers.
Passing an array doesn't work for the fields.

I also prefer xBrowse, but this is an old function that I still have to convert to xbrowse...

[Marc Vanzegbroeck]

Is this possible?

[nageswaragunupudi]

Please declare oRs as a PRIVATE variable in the same function. NOT as local.
Macro expansion needs this.

[Marc Vanzegbroeck]

Please declare oRs as a PRIVATE variable in the same function. NOT as local.
Macro expansion needs this.

Thanks,

Now it's working.