von Tigerlillie » Do, 24.07.2003 09:23
Guten Morgen,
meine Objekte für die Dialoge habe ich nicht als globale Variablen deklariert. Aber ich denke, daran kann es nicht liegen...
Das Einlesen geht ja, aber das Auslesen.
Inzwischen habe ich versucht die Position in eine Integer-Variable einzulesen und damit einem Array zu sagen, dass er sich mit dem anderen vergleichen kann (was sonst mit normaler String-Variablen und dem Array wäre).
Ob es hilft, weiß ich nicht, aber das hier ist der erste Teil mit dem Einlesen in die Listbox:
Sub Main
Open sOrgZif For Input As 1
x = 0
While Not eof(1)
Input #1, Zus_Array(x), An_Array(x), Vn_Array(x), SB_Array(x), Zi_Array(x), Tel_Array(x), Fx_Array(x), Em_Array(x), Ba_Array(x), Abk_Array(x), FB_Array(x), A1_Array(x), A2_Array(x), Hs_Array(x), SpZ_Array(x)
x = x+1
Wend
Close #1
iZahl = x
DialogLibraries.LoadLibrary("Standard")
oAuswahl = CreateUnoDialog(DialogLibraries.Standard.dlgAuswahl)
oAuswahlModel = oAuswahl.Model
oSachb = oAuswahl.GetControl ("lbl_Sachb")
Dim sCount as String
While x <> 0
sCount = " "
oSachb.AddItem (Zus_Array(x) & " " & sCount,1)
x = x - 1
Wend
oAuswahl.Execute()
End Sub
In dem nächsten Sub ist die Stelle, an der es nicht weitergeht:
Sub Aendern
DialogLibraries.LoadLibrary("Standard")
oAuswahl = CreateUnoDialog(DialogLibraries.Standard.dlgAuswahl)
oListBox = oAuswahl.GetControl ("lbl_Sachb")
sZusatz = oListBox.getSelectedItem()
MsgBox sZusatz
z = 0
oAuswahl.Endexecute()
x = iZahl
While sZusatz<> Zus_Array(z) and z < 200
z = z + 1
Wend
iZahl1 = z
.
.
.
Vielleicht siehst du ja einen Fehler...
Vielen Dank
und viele Grüße
Lillie
Guten Morgen,
meine Objekte für die Dialoge habe ich nicht als globale Variablen deklariert. Aber ich denke, daran kann es nicht liegen...
Das Einlesen geht ja, aber das Auslesen.
Inzwischen habe ich versucht die Position in eine Integer-Variable einzulesen und damit einem Array zu sagen, dass er sich mit dem anderen vergleichen kann (was sonst mit normaler String-Variablen und dem Array wäre).
Ob es hilft, weiß ich nicht, aber das hier ist der erste Teil mit dem Einlesen in die Listbox:
[color=green]Sub Main
Open sOrgZif For Input As 1
x = 0
While Not eof(1)
Input #1, Zus_Array(x), An_Array(x), Vn_Array(x), SB_Array(x), Zi_Array(x), Tel_Array(x), Fx_Array(x), Em_Array(x), Ba_Array(x), Abk_Array(x), FB_Array(x), A1_Array(x), A2_Array(x), Hs_Array(x), SpZ_Array(x)
x = x+1
Wend
Close #1
iZahl = x
DialogLibraries.LoadLibrary("Standard")
oAuswahl = CreateUnoDialog(DialogLibraries.Standard.dlgAuswahl)
oAuswahlModel = oAuswahl.Model
oSachb = oAuswahl.GetControl ("lbl_Sachb")
Dim sCount as String
While x <> 0
sCount = " "
oSachb.AddItem (Zus_Array(x) & " " & sCount,1)
x = x - 1
Wend
oAuswahl.Execute()
End Sub
[/color]
In dem nächsten Sub ist die Stelle, an der es nicht weitergeht:
[color=green]Sub Aendern
DialogLibraries.LoadLibrary("Standard")
oAuswahl = CreateUnoDialog(DialogLibraries.Standard.dlgAuswahl)
oListBox = oAuswahl.GetControl ("lbl_Sachb")
sZusatz = oListBox.getSelectedItem()
MsgBox sZusatz
z = 0
oAuswahl.Endexecute()
x = iZahl
While sZusatz<> Zus_Array(z) and z < 200
z = z + 1
Wend
iZahl1 = z
.
.
.[/color]
Vielleicht siehst du ja einen Fehler...
Vielen Dank :D
und viele Grüße
Lillie