TXBrowse y Bloques de Codigo

[Ricardo Ramirez E.]

Holas...
Tengo una tabla con campos N01, N02...N31
Necesito asignar valores a las colunas de un objeto TXbrowse.

Code: Select all

           oBrwHOR:aCols[j]:AddResource("A")
           oBrwHOR:aCols[j]:AddResource("I")
           oBrwHOR:aCols[j]:AddResource("J")
           oBrwHOR:aCols[j]:AddResource("T")
           oBrwHOR:aCols[j]:bBmpData   := { || oDbf:N01}   <---------------------------------
           oBrwHOR:aCols[j]:nEditType := EDIT_LISTBOX
           oBrwHOR:aCols[j]:aEditListBound := { "0","1","2","3" }
           oBrwHOR:aCols[j]:aEditListTxt   := { "A", "I","J","T"}
           oBrwHOR:aCols[j]:bEditValue := { || oDbf:n01 }
           oBrwHOR:aCols[j]:nDataStyle := oBrwHOR:aCols[j]:DefStyle( AL_RIGHT, .T.)
           oBrwHOR:aCols[j]:bOnPostEdit := {|o, v| oDbf:N01:= v, oDbf:Save()) } <------------------------------
           oBrwHOR:aCols[j]:nDataStyle := oBrwHOR:aCols[j]:DefStyle( AL_RIGHT, .T.)
 

En lineas arriba marcadas con una flecha es neceasrio que el campo oDbf:NO1 sea de acuerdo al valor de la variable j
Intente cambiar ambas lineas por :

Code: Select all

    oBrwHOR:aCols[j]:bBmpData   := { || oDbf:Bmp("{|| oDbf:N"+k+"}") }
    oBrwHOR:aCols[j]:bOnPostEdit := {|o, v| ( Eval("{|| oDbf:N"+k+"}"):= v, oDbf:Save()) }
 

Con _ la TXBrowse me arroja este error Error description: Error BASE/1004 Class: 'CHARACTER' has no exported method: EVAL

Alguna pista??

Gracias!

[Daniel Garcia-Gil]

Hola Ricardo...

Inteta hacerlo con una funcion que te devuelva el codoblock

algo asi...

oBrwHOR:aCols[j]:bBmpData := GenCodeBlock( j )

function GenCodeBlock( j )
return { || j }