genau so ist es, denn hier heißt das ganze Starbasic.JACKD hat geschrieben:..o0(offensichtlich funktioniert VBA unter MS anders als unter OO)
Dein Suchbegriff dazu wäre .Listsource
Viel Erfolg, Gruß R
Moderator: Moderatoren
genau so ist es, denn hier heißt das ganze Starbasic.JACKD hat geschrieben:..o0(offensichtlich funktioniert VBA unter MS anders als unter OO)
Code: Alles auswählen
Sub S_FillListbox2
dim ssql(0) as string
oform = Thiscomponent.drawpage.forms.MainForm
oListenfeld1 = oform.getByName("Listenfeld1")
s_selection = oListenfeld1.CurrentValue'Ausgewählten Wert aus Listbox 1 auslesen
oListenfeld2 = oform.getByName("Listenfeld2")
oListenfeld2.ListSourceType = 3'Sql
ssql(0)= "SELECT ""Spalte2"" FROM ""Tabelle2"" Where ""Spalte1"" ='"+s_selection+"'"
oListenfeld2.ListSource=ssql'Sql Befehl eintragen
oListenfeld2.refresh
End Sub
Das kannst Du also auch nicht?JACKD hat geschrieben:wenn mir jemand sagt wie =)
Code: Alles auswählen
CHECKPOINT DEFRAG