German Mehrere CSV-Dateien laden

klaus

Expert
Licensed User
Longtime User
Hallo Ida,

Poste doch trotzdem mal ein Beispiel von so einem PDB-Datei Satz.
Vieviele verschiedene Dateien sind es denn ?
Denn diese scheinen ja eigentlich nur einfache Textdateien zu sein.
Dann bräuchte man die doch gar umzuwandeln und könnte sie direkt lesen.
Heisst das dass Du nachher das Lizenz-Projekt in das Tiefkühl-Projekt umschreiben musst. Währe vielleicht besser das Lizenz-Projekt direkt in das Tiefkühl-Projekt umzuwandeln, ausser Du brauchst (möchtest) beide.

Inzwischen schon mal die Version mit den Händlern.
Habe die frmHersteller Form in frmDaten geändert und die gleiche Form zum verwalten der Hersteller und der Händler genutzt.

Beste Grüsse.
 
Last edited:
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,


vielen Dank für Deine neue Version!
Leider ist es mir nicht gelungen, diese zum Laufen zu bekommen, weil wohl mit V. 6.76 erstellt. Auch nach Bearbeitung im Editor kommt immer die Fehlermeldung:
"Error loading file.
Die Eingabezeichenfolge hat das falsche Format."

Wie kann man denn am besten (im Editor) von V.6.75 nach 6.50 umwandeln?

Zu Deinen Fragen:
Es sind 5 *.PDB-Dateien; diese sind im Binär-Format und nicht im Text-Format. Erst nach Umwandeln erhält man CSV-Dateien.

Beide Programme wären doch nützlich - jedenfalls für mich Anfänger:

Lizenzen zum Üben und Verstehen
Tiefkühlprojekt auch zum Üben, Verstehen - und Anwenden - nur für mich, nicht für irgendeine Firma oder so.

Viele Grüße

Ida
 
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,

klaus said:
Hallo Ida,

Entschuldige bitte meinen 'Murks'.
Ich arbeite mit 2 B4PPC Versionen und habe sie hier doch eben verwechselt.

Beiliegend die 6.50er Version.

Beste Grüsse.
Click to expand...

kein Problem - Danke!
Komme erst jetzt dazu, die neue V. auszuprobieren - Meldung kommt dann, wie üblich.

Gruß

Ida
 
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,

habe nun ausprobiert:
- toll, nun gibt's auch schon einen Händler-Button , Danke!

Leider kommen zwei Fehlermeldungen, eine habe ich eliminiert bekommen.
Aber nach Drücken auf den btnSort im frmDaten, wenn = Händler, kommt:
lbxHaendler.Item(i) = alHaendler.Item(i)
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

Ich bin alles durchgegangen; leider finde ich den Fehler nicht.:sign0161:

Sonst sieht alles prima aus - Danke!

Gruß

Ida
 

klaus

Expert
Licensed User
Longtime User
Hallo Ida,

Diesen Fehler hatte Ich verpasst.
lbxHaendler.Item(i) = alHaendler.Item(i)
muss durch
lbxDaten.Item(i) = alHaendler.Item(i)
ersetzt werden.

Ich habe noch eine Kontrolle eingefügt die verweigert wenn man versucht einen schon existierenden Hersteller oder Händler einzufügen.

Beiliegend die neue Version.

Beste Grüsse.
 
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,


Oh, Du bist ja schneller als der Schall (ungefähr) - Schweiz -> Deutschland!
Vielen Dank!!
Leider bin ich noch nicht so weit, so etwas zu finden, auch weil ich Manches noch nicht verstehe ...

Das mit einem existierenden H* ist mir auch schon aufgefallen, besonders wenn man dann versucht, diesen H* zu löschen (wenn er in Nutzung ist).
Probier ich dann nachher aus.

Für heute erstmal viele Grüße

Ida
 
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,
habe alles ausprobiert:
alles klappt, super!

Nur eines nicht:
Wenn man den letzten Hersteller löschen will, dann kommt Meldung:
lbxDaten.SelectedIndex=SelI
InvalidArgument=Value mit dem Wert 7 ist für SelectedIndex ungültig
Parametername:SelectedIndex

Ich habe dann probeweise mal in
Sub btnDelete_Click

die 3 Zeilen If SelI...,

die nur unter Case "Händler" standen, auch unter Case "Hersteller" eingetragen, weil es nämlich mit den Händler ging.

Große Freude: nun kann auch der letzte Hersteller gelöscht werden, natürlich nur, wenn nicht benutzt.

Ich weiß natürlich nicht, ob ich das so richtig gemacht habe, aber es klappt.

Kann diese Änderung Deine Zustimmung finden?

Leider funktioniert die von mir so schön programmierte Eingabe-Reihenfolge nicht mehr (in Details). Ob man die cbx nicht in die richtige Reihenfolge bekommen kann - programmtechnisch bedingt?

So, jetzt habe ich wieder alle viel zu lange aufgehalten. Sorry.

Viele Grüße

Ida
 

klaus

Expert
Licensed User
Longtime User
Hallo Ina,

Deine Änderung ist richtig, man kann es etwas vereinfachen in dem man die 3 Zeilen nach dem End Select verschiebt, da sie ja für beide Varianten gleich sind.
B4X: 
[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] Antwort=[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]cYes [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] lbxDaten.RemoveAt(SelI)[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff] Select[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] Source[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff] Case[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Hersteller"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New]   cbxHersteller.RemoveAt(SelI)[/FONT][/SIZE]
[SIZE=2][FONT=Courier New]   alHersteller.RemoveAt(SelI)[/FONT][/SIZE]
[/FONT][/SIZE][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff] Case[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Händler"[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]   cbxHaendler.RemoveAt(SelI) [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'10.06.09 I. dazu[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]   alHaendler.RemoveAt(SelI) [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'10.06.09 I. dazu[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff] End [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Select[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=red] If[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][COLOR=red][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] SelI>lbxDaten.Count-[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]1[/SIZE][/FONT][/SIZE][/FONT][/SIZE][/FONT][/COLOR][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]Then[/COLOR][/SIZE][/FONT]
[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]   SelI=SelI-[/COLOR][/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]1[/COLOR][/SIZE][/FONT]
[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red] End [/COLOR][/SIZE][/FONT][/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=red]If[/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=#0000ff] lbxDaten.SelectedIndex=SelI[/COLOR][/FONT][/SIZE]
[/FONT][/SIZE][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/FONT][/SIZE][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]

Das Eingabe Reihenfolge Problem habe Ich folgend gelöst:
B4X: 
[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]obj1.FromControl([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"btnHersteller"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]obj1.SetProperty([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"TabStop"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]False[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]obj1.FromControl([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"btnHaendler"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]obj1.SetProperty([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"TabStop"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]False[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT][/SIZE][/FONT]
Das annuliert die Tab Funktion auf den Buttons.

Beiliegend die geänderte Version.

Beste Grüsse.
 

specci48

Well-Known Member
Licensed User
Longtime User
Hallo zusammen,

und noch ein kleiner Bugfix von mir:
Löscht man in der Datenkonstellation aus dem .zip file z.B. die Händler "Händler 1" und "Händler 2", beendet den Dialog mit OK und ruft ihn gleich wieder über den Button "Händler" auf, so erhält man einen Fehler in der Zeile 443, weil in der Variablen HaendlerI noch ein alter (zu großer) Wert steht (das Selection_Changed event auf die Händler-Combobox greift hier nicht).

Daher meine Lösung, beim Aufruf der Listen (egal ob Händler oder Hersteller) immer den ersten verfügbaren Eintrag selektieren:
B4X: 
Sub btnDaten_Click
   'öffnet frmDaten
   Select Sender
   Case "btnhersteller"
      Source="Hersteller"
      lbxDaten.Clear
      For i=0 To alHersteller.Count-1
         lbxDaten.Add(alHersteller.Item(i))
      Next
[COLOR="Blue"]      If alHersteller.Count > 0 Then       ' 10.06.09 specci48 
         lbxDaten.SelectedIndex = 0  ' 10.06.09 specci48 
      End If                              ' 10.06.09 specci48 [/COLOR]
   Case "btnhaendler"
      Source="Händler"
      lbxDaten.Clear
      For i=0 To alHaendler.Count-1
         lbxDaten.Add(alHaendler.Item(i))
      Next
[COLOR="Blue"]      If alHaendler.Count > 0 Then        ' 10.06.09 specci48 
         lbxDaten.SelectedIndex = 0  ' 10.06.09 specci48 
      End If                              ' 10.06.09 specci48[/COLOR]
   End Select
   lblDatenTitel.Text=Source
   frmDaten.Show
End Sub


Viele Grüße
specci48
 

klaus

Expert
Licensed User
Longtime User
Hallo specci48,
Danke für den Bugreport !
Der Fehler war eigentlich hier, wenn man den letzten Eintrag gelöscht hat dann muss SelI um 1 vermindert werden und in diesem Fall wurden HerstellerI und HaendlerI nicht geändert.
B4X: 
[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] Antwort=[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]cYes [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]lbxDaten.RemoveAt(SelI)[/SIZE][/FONT]
 
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Select[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] Source[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Hersteller"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New]  cbxHersteller.RemoveAt(SelI)[/FONT][/SIZE]
[SIZE=2][FONT=Courier New]  alHersteller.RemoveAt(SelI)[/FONT][/SIZE]
[COLOR=seagreen]'   HerstellerI=SelI[/COLOR]
[/FONT][/SIZE][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Händler"[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] cbxHaendler.RemoveAt(SelI) [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'10.06.09 I. dazu[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] alHaendler.RemoveAt(SelI) [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'10.06.09 I. dazu[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][COLOR=seagreen]'  Haendler=SelI[/COLOR][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Select[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
 
[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] SelI>lbxDaten.Count-[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]1 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]  SelI=SelI-[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]1[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
 
[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]Select[/COLOR][/SIZE][/FONT][/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red] Source[/COLOR][/SIZE][/FONT]
[/SIZE][/FONT][COLOR=red][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]Case [/SIZE][/FONT][/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]"Hersteller"[/SIZE][/FONT][/SIZE][/FONT][/SIZE][/FONT][/COLOR]
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][COLOR=red]  HerstellerI=SelI[/COLOR][/FONT][/SIZE]
[/FONT][/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]Case [/COLOR][/SIZE][/FONT][/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]"Händler"[/COLOR][/SIZE][/FONT]
[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]  HaendlerI=SelI[/COLOR][/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][COLOR=red]End [/COLOR][/SIZE][/FONT][/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=red]Select[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
 
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New]lbxDaten.SelectedIndex=SelI[/FONT][/SIZE]
[/FONT][/SIZE][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
Der Grund warum Ich die lbxDaten ListBox auf die Werte HerstellerI und HaendlerI initialisiert habe war dass man gleich direkt auf den gewählten Wert der Combox kommt zum ändern.

Beste Grüsse.
 
Last edited:
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus und specci48,

vielen Dank für Euere neuen Versionen!

Die V. von specci48 habe ich erst einmal im Editor für B4PPC 6.5 angepaßt; jetzt habe ich raus, wie das geht ;-)

Ich habe dann heute morgen bis gerade in die V. von specci48 (v. gestern), die ja wohl auf Klaus' V. (v. gestern) beruht, versucht:

- die Änderungen + Ergänzungen zu verstehen - einigermaßen gelungen

- dann eine Menge Änderungen einzubauen, die abfangen sollen, wenn die
*.csv-Dateien nicht vorhanden oder nicht im AppPath sind.

Betonung liegt auf "versucht"!
Ihr werdet sicher mit Eueren weisen Häuptern wackeln.

Eigentlich sollte ich auch noch etwas einbauen, dass nur gespeichert wird, wenn sich überhaupt etwas geändert hat.

Nun sehe ich gerade vorhin, dass Klaus eine neue V. (v. heute) angeklemmt hat. Die kannte ich halt vor meinen heutigen "Taten" noch nicht.
Meine jetzt mitgeschickte V. beinhaltet also noch nicht diese Klaus-V. v. heute!

Oh je, da habe ich mit etwas angefangen...

Ich finde es toll, dass Ihr beide noch immer mitarbeitet! Vielen Dank!!

Viele Grüße

Ida
 
Last edited:
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,


jetzt habe ich mir Deinen Anhang angeguckt und kann keinen Unterschied zu specci's V. v. gestern finden.
Und so ganz verstehe ich es auch nicht. Wahrscheinlich finde ich es deshalb auch nicht.

Bitte nicht böse sein, dass meine V. im Post vorher nicht auf Deiner V. v. heute beruht - und das ich nicht immer alles verstehe!

Ich mühe mich aber doch, findet Ihr nicht auch?

Übrigens meint Ihr nicht auch, dass ich mal einen neuen Thread aufmachen sollte?
Meine Fragen - und Euere Hilfen - beziehen sich nur noch zum Teil auf:

"mehrere CSV-Dateien laden". Ich möchte keinen Ärger bekommen.

Viele Grüße

Ida
 

klaus

Expert
Licensed User
Longtime User
Hallo Ida,

Dass Du zwischen der Version von specci48 und meiner keinen Unterschied siehst ist ganz normal, denn specci48's Lösung 'überschereibt' meine Lösung.
Du musst also einen Entscheid treffen was Du möchtest:
1) nach einem Klick auf Hersteller, den Ersten Herteller zu sehen
2) nach einem Klick auf Hersteller, den Herteller zu sehen der in Details gewählt wurde.
Das gleiche gilt natürlich auch für Händler.

Fall 1) lasse Alles wie es war ohne meiner Lösung.
Fall 2) entferne specci48's Lösung, und meine wird aktiv.

Beste Grüsse.
 
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,


vielen Dank! Ich glaube und hoffe, dass ich es verstanden habe.

Ich habe also nun die V. aus meinem Post 52 entsprechend angepaßt und beigefügt als Lizenzen-20090612-Ida.sbp
mit der Lösung "2)". Hoffentlich habe ich es richtig gemacht; beim Ausprobieren klappte es.

Wie in meinem Post 52 geschrieben, habe ich einige Änderungen eingefügt, die sich mit dem Vorhandensein der csv-Dateien beschäftigen.

Wenn Ihr - Du oder/und auch specci48 - noch "mitmachen" wollt, bitte ich nur ganz höflich darum, z. B. jetzt "meine" V. Lizenzen-20090612-Ida.sbp zu nehmen für Änderungen, weil ich manchmal nicht mehr durchschaue.
Vielen Dank für Euer Verständnis - und Eure Hilfe!

Viele Grüße

Ida
 
Last edited:
D

Deleted member 103

Guest
Hallo Klaus,

endlich...

Ich habe meine Listview-Library geändert, kannst du mal testen ob jetzt alles Ok ist.

Ciao,
Filippo
 

klaus

Expert
Licensed User
Longtime User
Hallo Filippo,

Ich habe mir endlich die Zeit genommen deine neuen ListView Libraries zu testen.

Jetzt funktionieren sie prima.

Ein kleiner Schönheitsfehler ist noch drin:
Wenn man eine Neue Datei einliest mit True,True nimmt die Breite der ersten Spalte die ganze Breite der ListView ein. Die nächsten Spalten haben eine schmälere Breite.

Es wäre 'schöner' wenn die Spalten:
- an die Titeltextbreite angepasst würden
- oder wenn genug Platz da ist, üder die Breite einheitlich verteilt würden.

Beste Grüsse.
 
D

Deleted member 103

Guest
Hallo Klaus,

vielen Dank für dein Test.

Ein kleiner Schönheitsfehler ist noch drin:
Wenn man eine Neue Datei einliest mit True,True nimmt die Breite der ersten Spalte die ganze Breite der ListView ein. Die nächsten Spalten haben eine schmälere Breite.
Click to expand...
Dieser kleiner Schönheitsfehler ist nur auf dem Desktop vorhanden, und mementan weis ich nicht wie den Fehler beheben kann.

Es wäre 'schöner' wenn die Spalten:
- an die Titeltextbreite angepasst würden
- oder wenn genug Platz da ist, üder die Breite einheitlich verteilt würden.
Click to expand...
Ich gehe alt immer davon aus das man vor dem laden die Spaltebreite festlegt, ausser man weist nicht wie die Datei aufgebaut ist.

PS. so jetzt kann ich die andere DLL's anpassen.

Ciao,
Filippo
 

klaus

Expert
Licensed User
Longtime User
Hallo Filippo,

Dieser kleiner Schönheitsfehler ist nur auf dem Desktop vorhanden ...
Click to expand...
Ich habe nur auf dem Desktop getestet.

Ich gehe alt immer davon aus das man vor dem laden die Spaltebreite festlegt, ausser man weist nicht wie die Datei aufgebaut ist.
Click to expand...
Da hast Du auch Recht, das ist bestimmt meisstens der Fall.

Beste Grüsse.
 
You must log in or register to reply here.
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…