English
Forum

trouble: two Listviews produce

 

Bernd
Kaiser
Hello List view-Friends,

I fight with folgendem trouble:

In my Program should with two Listviews worked go. In one unsichtbaren List view (List view2&) stand any available data and of there should then Lines in the visible List view (Lisstview1&) copies go. my trouble lying therein, I of course both Listviews created have, once but then The Suchfunktion in list view2& search should comes The Message, that these Variable not definiert is.

my supposition is, I with the Deklaration of List view1& the List view2& again destroy. here time the code the betreffenden place:
CompileMarkSeparation
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 Help.

Greeting 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.
07/20/05  
 



Hm - So the Codepiece uses I do not so plenty around the trouble award can - there missing hold the Context.

reading still time your Prog of XPSE to check on...

And if the too not yet helps - use still time whom XPSE {$Debug} Compilerschalter - i think so can itself Derartiges quick find. [...] 

salvo, iF.
 
07/20/05  
 




Frank
Abbing
Hi,

shining Yes no List view trouble To his. sooner one, the in your code arise. probably have dus in the interim already fixed.
 
07/21/05  
 




Bernd
Kaiser
Yes, The Solution is me today during the Bahnfahrt invaded. The Variable ListView2& must naturally global declared go.

one learn hold only from Fehlern.

Greeting 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.
07/21/05  
 




Frank
Abbing
there have you got right
 
07/21/05  
 




Michael
Wodrich
i'd with the editor-Suchfunktion too time to Listview& search let.

is the correctly, or missing there on some to put The 2?

Best wishes
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
07/23/05  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

1.834 Views

Untitledvor 0 min.
Michael W.07/04/16
Frank Vorholzer05/10/12
iF05/03/11
Mirko01/14/11

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie