Code: Alles auswählen
nLen := LEN(::aFields)
// ist das richtig ?
aDummy := ARRAY(nLen)
::aSource := {}
iMax := LASTREC()
FOR i := 1 TO iMax
AADD(::aSource,aDummy)
NEXT
Code: Alles auswählen
::aSource[nRec][j] := cText
wenn man sich das links ansieht : er "schreibt" es in JEDE Row ... wie ist das möglich
Kann das mit meinem Code zusammenhängen
Code: Alles auswählen
PROCEDURE Main
oBrowse:RecLink := {| nTo, uNIL, oSelf| PostAppEvent(MY_REC,nTo,, oDlg)}
oBrowse:StartListView()
...
DO CASE
CASE nEvent = MY_REC
oBrowse:ShowRecord(mp1,aFields,cAlias)
CLASS MyBrowse FROM xbp_listview
INLINE METHOD StartListView()
// subscript LVN_GETDISPINFO Notify Event
::SetLvNotifyCB( LVN_GETDISPINFO,{|o,notify_code,lp| ::OnDISPINFO(o,lp)})
INLINE METHOD OnDISPINFO(o,lp)
IF VALTYPE( ::RecLink ) == "B"
// eval Codebock
EVAL(::RecLink,::nItemNo,,self)
INLINE METHOD ShowRecord(nTo,aFields,cAlias)
// assign Text to Array Element
::aSource[nRec][j] := cText
Dort führe ich ein EVAL(::RecLink,::nItemNo,,self) aus worauf ich im Xbase++ Thread die Method oBrowse:ShowRecord(mp1,aFields,cAlias) aufrufe in der das Problem auftaucht.
ich rufe ::aSource auch nur innerhalb der Class auf ... aber woher kommt der komische Effekt
oder ist mein Intro Code doch verkehrt ... ( habe es auch mit aDummy[nLen] versucht ... das selbe Problem)