xbrowse y setcheck Mr Rao please

[wilsongamboa]

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oCn, oRs, oDlg, oBrw
   oCn  := FW_DemoDB() //FW_OpenAdoConnection( aCredentials, .T. )
   oRs  := oCn:RowSet( "SELECT false AS lCheck, code, name FROM states where 1 " )
   

   DEFINE DIALOG oDlg SIZE 1000,600 PIXEL TRUEPIXEL
   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE oRs AUTOCOLS CELL LINES NOBORDER

   WITH OBJECT oBrw:lCheck
      :SetLogical()
      :SetCheck()
   END
   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

return nil

buenas tardes
Este codigo funciona me presenta la primera columna pero no marca ni con el mouse ni con la tecla SPACE
agradeceria si alguien sabe que me esta faltando
gracias por su ayuda
Att

Wilson

[Ariel]

Wilson,

proba de ponerle :

:nEditType := EDIT_GET

Saludos.

[wilsongamboa]

Ariel muchas gracias pero lamentablemente no funciono
saludos
Wilson

[armando.lagunas]

generalmente los valores verdaderos o falsos de una base de datos son con un campo "BIT", en donde es:

0 = FALSE
1 = VERDADERO

entonces para que el check del oBrw funcione debes convertir el campo a .T. o .F.

0 = .F.
1 = .T.

[wilsongamboa]

me he quedado con

Code: Select all  Expand view

   WITH OBJECT oBrw:aCols[ 1 ]
       :SetLogical()
       :SetCheck()
       :bEditValue    := { || ascan( oBrw:aSelected, oBrw:BookMark ) > 0 }
    END
    oBrw:nMarqueeStyle    := MARQSTYLE_HIGHLROWMS
 

funciona belleza
saludos

[wilsongamboa]

Muchas gracias Armando y Ariel de sus consejos puse hallar la solucion
Gracias
saludos

[wilsongamboa]

funciona belleza

gracias
Wilson

[nageswaragunupudi]

Code: Select all  Expand view

  WITH OBJECT oBrw:lCheck
      :SetLogical()
      :SetCheck( nil, .t. )
   END
 

[wilsongamboa]

Many Thanks Mr Rao
it's Works Good
best regards