TXBrowse y Bloques de Codigo
Posted: Sun Mar 29, 2009 7:05 am
Holas...
Tengo una tabla con campos N01, N02...N31
Necesito asignar valores a las colunas de un objeto TXbrowse.
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 :
Con _ la TXBrowse me arroja este error Error description: Error BASE/1004 Class: 'CHARACTER' has no exported method: EVAL
Alguna pista??
Gracias!
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!