in einem XbpQuickbrowse(), welches auf ein Array zugreift, will ich einen Satz ( Row ) editieren.
Code: Alles auswählen
oQB:itemSelected := {| aRowCol, uNIL, oSelf | oQB:EditRec(aRowCol) }
Code: Alles auswählen
FOR i := 1 TO nCount
...
oSLE:dataLink := MakeBlock( aData ,i)
FUNCTION MakeBlock( aData ,i)
LOCAL bBlock := "{|x| IIf(x==NIL, aData["+LTRIM(STR(i))+"],aData["+LTRIM(STR(i))+"] := x ) }"
RETURN &bblock
Code: Alles auswählen
PRIVATE aData := ::DataArray[aRowCol[1]]