du machstManfred hat geschrieben:oben kann man es genau erkennen. Der Datalink geht NUR auf eine Speichervariable und die ist da bekannt.
Code: Alles auswählen
oVostamm2:db_oeffnen()
Moderator: Moderatoren
du machstManfred hat geschrieben:oben kann man es genau erkennen. Der Datalink geht NUR auf eine Speichervariable und die ist da bekannt.
Code: Alles auswählen
oVostamm2:db_oeffnen()
ok habe gesehen das du oVostamm (ohne 2) als Parameter übergibst ...Manfred hat geschrieben:Code: Alles auswählen
oPbStart := pushButton():new(oRahmenEingabe,,{oVostamm:oV_titel:currentsize()[1]+oVostamm:oV_titel:currentPos()[1]+10,5},aPbSize) oPbStart:activate := {|| IF(!oThreadF4:lGestartet,; (oVideoF4Temp:schliesse_datenbank(),oVideoF4Temp:db_oeffnen(,,.T.),oThreadF4:start("suchen",oThreadF4,oPbStart,oPbEnde,oVostamm,oDialog,oBrowse)),; oThreadF4:lGestartet:=.F.)} oPbStart:caption := "Start" oPbStart:create() oPbStart:disable() ... PROCEDURE suchen(oThread,oPbStart,oPbEnde,oVostamm,oDialog,oBrowse)
Code: Alles auswählen
IF lBig
bBlock := {|| YARTIKEL(AppDesktop(),NIL,aPos,aSize,aPP,.T.,cAction ,nSeekRec,oDraw),;
AppDesktop(),NIL,aPos,aSize,aPP,.T.,cAction ,nSeekRec,oDraw }
ELSE
bBlock := {|| YARTIKEL(oDraw ,NIL,aPos,aSize,aPP,.T.,cAction ,nSeekRec,oDraw),;
oDraw ,NIL,aPos,aSize,aPP,.T.,cAction ,nSeekRec,oDraw }
ENDIF
oArtThread := Thread():new()
oArtThread:start( bBlock )
...
FUNCTION YARTIKEL(oParent, oOwner, aPos, aSize, aPP, lVisible, cAction, nSeekRec, oDraw )