Code: Alles auswählen
LOCAL i
LOCAL oColumn
PRIVATE aTage := MakeTage() // 2-Dim Array
PRIVATE nRecno := 1
FOR i = 1 TO 6
oColumn := XbpColumn():new( oBrowse,,,,PRES_PARAM )
oColumn:drawMode := XBP_DRAW_OWNER
bBlock := "{|| aTage[nRecno,"+STR(i,3)+"] }"
oColumn:dataLink := &bBlock
oBrowse:addColumn( oColumn )
NEXT
Wenn ich aber nun Class VAR verwende
Code: Alles auswählen
CLASS OWbrowse FROM XbpBrowse
EXPORTED:
VAR aTage, nRecno
...
METHOD makeCol()
ENDCLASS
METHOD OWbrowse:makeCol()
LOCAL i
LOCAL oColumn
*LOCAL bBlock
PRIVATE bBlock
::aTage := MakeTage() // 2-Dim Array
FOR i = 1 TO 6
oColumn := XbpColumn():new( ::XbpBrowse,,,,PRES_PARAM )
oColumn:drawMode := XBP_DRAW_OWNER
* bBlock := "{|| ::aTage[::nRecno,"+STR(i,3)+"] }"
bBlock := "{|| ::aTage["+STR(::nRecno)+","+STR(i,3)+"] }"
oColumn:dataLink := &bBlock
::XbpBrowse:addColumn( oColumn )
NEXT
jemand eine Idee wie ich den "String" zusammen stellen sollte ?