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 esos cambios 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.
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 :
oBrwHOR:aCols[j]:bBmpData := { || oDbf:Bmp("{|| oDbf:N"+k+"}") }
oBrwHOR:aCols[j]:bOnPostEdit := {|o, v| ( Eval("{|| oDbf:N"+k+"}"):= v, oDbf:Save()) }Con esos cambios la TXBrowse me arroja este error Error description: Error BASE/1004 Class: 'CHARACTER' has no exported method: EVAL
Alguna pista??
Gracias!
Saludos
Ricardo R.
xHarbour 1.1.0 Simplex , Microsoft Visual Studio 2008, Bcc55, Fwh Build. 9.01
Ricardo R.
xHarbour 1.1.0 Simplex , Microsoft Visual Studio 2008, Bcc55, Fwh Build. 9.01
