Otra Pregunta sonbre ADORDD

[ruben Dario]

Segun este codigo no me muestra los datos cuando uso ADORDD pero si manejo tablas tipod DBF si muestra los datos, Anexo codigo.

Code: Select all

   USE basedatm VIA "ADORDD" TABLE "ktipmod" MYSQL ;
      FROM "192.168.10.1" USER "root" PASSWORD "colomp" alias b_tipmod

 DEFINE DIALOG oDlgbrow  FROM 5,10 TO 24, 56 TITLE "Consulta General" 
   oLbx := TXBrowse():New( oDlgbrow )
   oLbx:nTop     := 5 ;  oLbx:nLeft    := 10 ;  oLbx:nBottom  := 120 ;  oLbx:nRight   := 180 //240
   // oLbx:nHeight  := 4   //   oLbx:Box(5,10,24,76)
   par_browse(4,oLbx)
   oLbx:nHeaderLines        := 1  //altura del titulo
   cPic:= "999,999,999.99"
   tvalo :=0
   aSaldos := { }
   tvalo := DBEVAL ( {|| tvalo += b_tipmod->valo })
   oLbx:bGoTop := dbGotop()

 WITH OBJECT oLbx:AddCol() 
       :AddResource("CLIP") 
       :cHeader       := "Código" 
       :bStrData      := { || b_tipmod->tipmod } 
       :nHeadStrAlign := AL_LEFT 
       :nDataStrAlign := AL_LEFT 
//       :nWidth        := 80 
       :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      := { || b_tipmod->nombre } 
       :nHeadStrAlign := AL_LEFT 
       :nDataStrAlign := AL_LEFT 
//       :nWidth        := 300
       :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 // para congelar la 1ª 
   oLbx:lAllowColSwapping   :=.F.  //Para no permitir swap entre columnas 
   oLbx:SetRDD()

   oLbx:CreateFromCode()  //(oDlgBrow)
   oDlgBrow:oClient := oLbx
    @ 7, 1 BUTTON "&Salir" OF oDlgBrow SIZE 40, 12 ACTION oDlgBrow:End()
   ACTIVATE DIALOG  oDlgBrow CENTERED // ON INIT ( Eval(aBlock),dbgotop())
   Release oDlgbrow, oLbx,nRow,nCol,oChild,nFor,oLamcla,cPic,tvalo,aSaldos, aBlock