Xbrowse y ADO por favor AYUDA

[ruben Dario]

Tengo este codigo , y no me muestra los datos manejando xbrowse.

Aenexo Codigo, si alguien me pueda facilitar un codigo para ver la sintaxis

Code: Select all  Expand view  RUN

     DEFINE DIALOG oDlgbrow RESOURCE "BROW_LISTA" TITLE OemToAnsi("Consulta General");
           
..
..
..


    oLbx := TXBrowse():New( oDlgbrow ) //:CreateFromResource(4001)

   oLbx:bGoTop          := {|| oTipmod:moveFirst() }
   oLbx:bGoBottom       := {|| oTipmod:moveLast() }
   oLbx:bSkip           := {| n | rsSkipper( n, oTipmod ) }
   oLbx:bBof            := {|| oTipmod:Bof() }
   oLbx:bEof            := {|| oTipmod:Eof() }
   oLbx:bKeyNo          := {|| oTipmod:AbsolutePosition }
   oLbx:bKeyCount       := {|| oTipmod:RecordCount() }
     WITH OBJECT oLbx:AddCol()
       :AddResource("CLIP")
       :cHeader       := "Código"
       :bStrData      := oTipmod:Fields("tipmod"):Value 
       :nHeadStrAlign := AL_LEFT
       :nDataStrAlign := AL_LEFT
       :nWidth        := 60
       :nHeadBmpNo    := 1
       :nEditType := 0   // 1 Permite MOdificar 0 No modifica
       :bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, msginfo("jejejeje"), ) }
       :lAllowSizing:=.F. //no permitir q' redimensionen las columnas.(Para cada columna )
     END
     WITH OBJECT oLbx:AddCol()
       :cHeader       := "Nombre"
       :bStrData      := oTipmod:Fields("nombre"):Value
       :nHeadStrAlign := AL_LEFT
       :nDataStrAlign := AL_LEFT
       :nWidth        := 200   //200
       :nEditType := 0   // 1 Permite MOdificar 0 No modifica
       :bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, msginfo("jejejeje"), ) }
       :lAllowSizing:=.F. //no permitir q' redimensionen las columnas.(Para cada columna )
     END

     oLbx:nFreeze:=1
     oLbx:lAllowColSwapping   :=.F. 

   oLbx:SetRDD() 

   oLbx:CreateFromResource( 4001 )
   oDlgBrow:oClient := oLbx

   ACTIVATE DIALOG  oDlgBrow CENTERED



[Antonio Linares]

Ruben,

Tu código puedes simplificarlo y hacerlo funcionar asi:

Code: Select all  Expand view  RUN

   REDEFINE XBROWSE oLbx ;
      COLUMNS "tipmod", "Nombre" ;
      HEADERS "Codigo", "Nombre" ;
      COLSIZES 60, 200 ;
      OF oDlgbrow ID 4001 ;
      RECSET oTipMod

   oLbx:nFreeze               := 1
   oLbx:lAllowColSwapping     := .f.
   AEval( oLbx:aCols, { |o| o:lAllowSizing := .f. } )
   
   ACTIVATE DIALOG oDlgBrw CENTERED


[ruben Dario]

Ruben,

Tu código puedes simplificarlo y hacerlo funcionar asi:

Code: Select all  Expand view  RUN

   REDEFINE XBROWSE oLbx ;
      COLUMNS "tipmod", "Nombre" ;
      HEADERS "Codigo", "Nombre" ;
      COLSIZES 60, 200 ;
      OF oDlgbrow ID 4001 ;
      RECSET oTipMod

   oLbx:nFreeze               := 1
   oLbx:lAllowColSwapping     := .f.
   AEval( oLbx:aCols, { |o| o:lAllowSizing := .f. } )
   
   ACTIVATE DIALOG oDlgBrw CENTERED


Gracias Antonio Funciono Perfectamente