Inoffizielles deutsches Xbase-Forum

Hi Georg, funktioniert auch nicht. ::ABrowse:AddColumn ( {|| ::aData[::nRecno,1] } ) Funktioniert. For I = 1 to 2 ::ABrowse:AddColumn ( {|| ::aData[::nRecno,i] } ) endif Funktioniert nicht. Der eigentliche Code steckt in einer Methode. Die :: hatte ich weggelassen damit es nicht zu kompliziert wird....

Hallo Georg, danke für die Info. Ich habe den Code eingebaut. Funktioniert aber nicht. Woher kommt die Variable nI bei Funktionsaufruf im For next? Ich habe dort statt nI i eingesetzt. Damit funktioniert es bedingt, denn es wird jetzt auf allen Zeilen der Tabelle immer der erste Datensatz angezeigt....

Hallo, ABrowse:AddColumn ( {|| aData[nRecno,1] } ) ABrowse:AddColumn ( {|| aData[nRecno,2] } ) funktioniert For i = 1 to 2 ABrowse:AddColumn ( {|| aData[nRecno, i ] } ) next Gibt eine Fehlermeldung. Ich schätze das liegt am Codeblock bzw. dem Zähler i. For i = 1 to 2 ABrowse:AddColumn ( {|i| aData[n...

Habe ich auch mal probiert. Funktioniert aber nicht. Da ich keine Datei browse sondern ein Array kann das damit zusammenhängen?

mfg
Wolfgang

Auf der CD Developer Supscription Volume 6 habe ich den Ordner VXW32 gefunden. Das wird es sein oder?
Wird da was installiert? Ich habe den Ordner kopiert und vx20 Programm aufgerufen tut sich aber nix. Rufe ich nur vX20 auf, so erscheint eine Fehlermeldung.

mfg
Wolfgang

So?
PostAppEvent( oBrowse:Down(), , , ABrowse )

mfg
Wolfgang

Eine Datei mit VX am Anfang ist nicht mit dabei und auch nicht auf meinem Rechner. Habe Version 1.9.331.

mfg
Wolfgang

Hallo, danke, das hat funktioniert. Aus der xbase++ Hilfe <nEvent> <nEvent> ist der numerische Ereigniscode für das Ereignis, das in die Warteschlange gestellt werden soll. Für <nEvent> können die symbolischen Konstanten verwendet werden, die in der #include-Datei Appevent.ch definiert sind. Da hatt...

Habe ich den denn bei der Version 1.9 dabei?

mfg
Wolfgang

Hallo, ich hab emir bisher die Variablen mit ?... anzeigen lassen. Bei der Benutzung von xbparts geht das ja nicht mehr. Nun habe ich den Debugger mit eingebunden und rufe das Programm mit XPPDBG Programm auf. Dann geht ein Fenster im "CRT Modus" auf welchen man auch nicht vergrößern kann ...

Ich krieg die Kriese!! oButtoncdown:activate := {|| PostAppEvent( xbeK_DOWN ) } habe nach dem Hilfebeispiel 2 "Nachricht an ein Xbase Part schicken" umgeschrieben in: oButtoncdown:activate := {|mp1,mp2,oButton1| PostAppEvent( xbeK_DOWN , , , ABrowse ) } wobei ich nicht weiß ob das mit oBut...

Hallo, bei der Erstellung einen pushbuttons funktioniert oButtonCancel:activate := {|| PostAppEvent( xbeP_Close ) }. Es wird alles geschlossen. Nun wolle ich zur Übung im Umgang mit Buttons einen bauen, der den Cursor in einer Arraytabelle des xbpbrowse() 1 runterschiebt. oButtoncdown:activate := {|...

Hallo,
das habe ich. Dort geht es meistens um bestimmte Probleme von xbase. Ein komplettes kleines Beispiel habe ich da nicht gefunden.
mfg
Wolfgang

Hallo,
ich bin dabei mich in die xbaseParts Objekt Programmierung einzuarbeiten. Ich bin auf der Suche nach einem einfachen Beispiel um eine Tabelle mittels xbpbrowse() als Objekt mit Klassen und Methoden anzuzeigen/zu bearbeiten.
Weiß jemand wo ich so etwas finde?
mfg
Wolfgang

Hallo Tom,
genau dieser einfache Code war genau das richtige für mich. Ich werde mal weiter forschen
mfg
Wolfgang

Hallo Auge_Ohr, Dein Vorschlag ist nicht vergessen. Ich werde den auf jeden Fall auch testen wollen. Leider habe ich nicht immer so viel Zeit wie ich zum Programmieren gern hätte. Tom hatte den Code für einen Neuling wie mich (ich kenne bisher nur Clipper, transferiert nach xbase++ in CRT FEnster oh...

Guten Morgen, es hat mir keine Ruhe gelassen und ich habe mich sofort nach meiner Arbeit wieder an den Rechner gesetzt. Im Do while Befehl hattest Du statt ]) )) gesetzt. Das gabe einen Laufzeitenfehler, den ich gefunden habe (Ich war so stolz auf mich). Da ich ein mehrdimensionales Array bearbeite,...

Das ist richtig, schnell geht das nicht. Irgend wann werde ich mich ja umstellen müssen. Da ist es nicht schlecht wen man versteht was man tut.
Ich werde das alles morgen Abend mal nachvollziehen. Muß jetzt leider zur Arbeit.
mfg
Wolfgang

Nun sitz ich ich hier ich armer Thor. // Navigationscodeblöcke für den Browser oBrowseA:skipBlock := {|nSkip,oBrowseA| MySkip(nSkip,oBrowseA)) FUNCTION MySkip( nSkip ) LOCAL nCanSkip IF nRecno + nSkip < 1 // "BoF" nCanSkip := 1 - nRecno TONE ( 1000 ) ELSEIF nRecno + nSkip > nLastRec // &qu...

Hallo, genau das mache ich mit dem Array. Ich hatte bisher immer das Problem. dass sie Set Filter Funktion in Verbindung mit browse() im Netzwerk recht langsam ist, wenn 2 Filter gesetzt werden nunzumutbar. Daher hatte ich, wie Du wahrscheinlich auch, eine Array anzeigen lassen. Das ging immer Ratz ...

Ich habe ein mehrdimensionales Array und möchte da die nicht benötigten Daten löschen. Das habe ich bisher so gelöst: nlastrec=len(aArray) for i = 1 to nlastrec if !alltrim(mfilter)$aArray[i,2] aRemove(aArray,i) nlastrec=nlastrec-1 i=i-1 endif next das dauert bei 40000 Eintragungen ca. 4 Sekunden. F...

Guten Tag,
gibt es eine Möglichkeit eines set filter to für ein Array?

mfg
Wolfgang

Bei mir steht in der Hilfe unter xbpbrowse() nur ein Beispiel.

'W'olfgang

Hallo, danke für die Info. Alle Programme zusammen sind es ca. 35000 Zeilen Programmcode. Ist doch einiges in den Jahren zusammengekommen. Wenn ich SetAppWindow(oCRT) vor oder nach destroy() setze bekomme ich eine Fehlermeldung das es die Variable oCRT nicht gibt. Stimmt, diese habe ich ja auch nich...

Hallo, seit langem habe ich mal wieder versucht GUI Elemente in meine Programme einzubinden. Leider ist eine kopmplette Umstellung aus Zeitgründen nicht zu machen. Ich möchte mich aber gern mit GUI beschäftigen und Stück für Stück weitermachen. Nun habe ich im CRT Fenster eine Tabelle ausgeben könne...