| |
|
|
Bernd Kaiser | ¡Hola Listview-Amigos,
Yo kämpfe con folgendem Problema:
In mi Programa se con zwei Listviews gearbeitet voluntad. In una unsichtbaren Listview (Listview2&) son todos verfügbaren Daten y de hay debería entonces Zeilen en el sichtbare Listview (Lisstview1&) kopiert voluntad. Mein Problema liegt en él, dass Yo zwar beide Listviews producido habe, sobald aber entonces el Suchfunktion en Listview2& suchen se kommt el Meldung, dass esta Variable no definiert es.
Mi Vermutung es, dass Yo en Deklaration de Listview1& el Listview2& otra vez zerstöre. Hier veces el Code el betreffenden Punto: KompilierenMarcaSeparación
PROC ...
REM Artikeldaten in ListView2 einlesen
text$="SQL.DAT" SQL.DAT enthält die Ergebnisse des SQL-Befehls
bytes&=@FileSize(text$) Speicherbereich festlegen
If bytes&>0
Dim bereich#,bytes&
x&=MixRGBs(GetSysColor(15),$00ffffff)
listview2&=CreateListView(%hwnd,%hinstance,0,x&,-1,$31) ListView2 = Liste aller Artikel
ReadFileQuick(addr(text$),bereich#,0,bytes&)
Spalten&=SetColumnsFromMem(listview2&,bereich#,addr(y&))
CsvToListview(listview2&,(bereich#+y&),(bytes&-y&),Spalten&)
Dispose bereich#
EndIf
Spaltentitel umbenennen
Dim Bereich#,256
1. Spalte
text$="Lief.-Nr"
String Bereich#,0=text$
x&=SetColumnName(listview2&,Bereich#,(0))
2. Spalte
text$="Lieferant"
String Bereich#,0=text$
x&=SetColumnName(listview2&,Bereich#,(1))
Dispose Bereich#
Spaltentitel umbenennen
Die Breite der drei ersten Spalten korrigieren
SetColumnWidth(listview2&,0,75)
SetColumnWidth(listview2&,1,250)
SetColumnWidth(listview2&,2,0) diese Spalte wird zuviel aus SQL.DAT geholt, daher auf Breite=0 gesetzt, damit sie nicht zu sehen ist
Die Breite der drei ersten Spalten korregieren
Spalten des Listviews sortierbar machen
AutoSortListview listview2&,2,1 macht die Spalten sortierbar durch Klick auf den Spaltentitel
Spalten des Listviews sortierbar machen
REM Artikeldaten in ListView2 einlesen
REM Das ListView für den Hauptbildschirm anzeigen (noch leer)
rem x&=MixRGBs(GetSysColor(15),$00ffffff)
listview1&=CreateListView(%hwnd,%hinstance,0,-1,-1,$25)
ShowListView(listview1&,30,100,560,250) Anzeige des Listviews
REM Das ListView für den Hauptbildschirm anzeigen (noch leer)
EndProc
Proc Button4_OnClick
REM nach Artikelnummer in Listview2& suchen
DECLARE such$
Feld ist leer, dann sofort ListView2 aufrufen, um dort zu suchen
print @GetText$(ArtNrSearch&)
print LEN(TRIM$(@GetText$(ArtNrSearch&)))
If @Equ(LEN(TRIM$(@GetText$(ArtNrSearch&))),0) nichts eingegeben
@Messagebox("Keine Artikel-Nr. eingegeben","nach Artikel-Nr. suchen",0)
ELSE Feld ist gefüllt, dann per Suchfunktion SearchText in ListView2 nach dieser Nummer suchen
such$=ArtNrSearch&
y&=SearchText(listview2&,0,GetLines(listview&),0,addr(such$),10,addr(x&))
Case (y&<>-1):Print "Gefunden, Zeile "+Str$(y&)+" / Spalte "+Str$(x&)
ENDIF
SetText ArtNrSearch&,"" Feldinhalt nach Rückkehr wieder löschen
ref='./../../references-fonction/XProfan/ENDPROC/'>ENDPROC
In froher Erwartung eurer Ayuda.
Saludo Bernd |
|
|
| Win98SE, Profan 7.5 -------------------------------------------------- Programmieren ist wie küssen: Man kann darüber reden, man kann es beschreiben, aber man weiß erst, was es bedeutet, wenn man es getan hat. | 20.07.2005 ▲ |
|
|
|
|
| Hm - also el Codepiece nutzt No así viel en el problema erkennen a puede - como fehlt sólo el Zusammenhang.
Las doch veces Su Prog vom XPSE überprüfen...
Und si el auch todavía no hilft - nutze doch veces el XPSE {$Debug} Compilerschalter - Yo denke así lässt se Derartiges rápidamente encontrar. [...]
Salve, IF. |
|
|
| |
|
|
|
Frank Abbing | Hi,
scheint sí kein Listview Problema a ser. Eher uno, el en deinem Code entsteht. Wahrscheinlich hast dus en el Zwischenzeit ya Fijo. |
|
|
| |
|
|
|
Bernd Kaiser | Sí, el Solución me está heute während el Bahnfahrt eingefallen. El Variable ListView2& muss natürlich global deklariert voluntad.
Man lernt sólo sólo de Fehlern.
Saludo Bernd |
|
|
| Win98SE, Profan 7.5 -------------------------------------------------- Programmieren ist wie küssen: Man kann darüber reden, man kann es beschreiben, aber man weiß erst, was es bedeutet, wenn man es getan hat. | 21.07.2005 ▲ |
|
|
|
|
Frank Abbing | Como hast du bastante |
|
|
| |
|
|
|
Michael Wodrich | Yo sería con el Editor-Suchfunktion auch veces después de Listview& suchen dejar.
Ist el korrekt, oder fehlt como a algunos Stellen el 2?
Schöne Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 23.07.2005 ▲ |
|
|
|