Am Sonntag, den 23.09.2007, 04:32 -0400 schrieb Andrew Jensen:
> Kexi? Now that is an interesting question. I have no idea
I hope I got the name right, there is or was also "Knoda" ...
> MSA, I don't know there a couple of roads there.
>
> Truthfully I am more interested in how to do it in Base.
Fiddling a while got me:
Sub checkLB(event as object)
dim oDoc as object, oForm as object
dim oListboxKategorieModel as object
dim oListboxKategorieView as object
dim ssql(0) as string
set oDoc = ThisComponent
set oForm = oDoc.DrawPage.Forms(0)
set oListboxKategorieModel = oForm.getByName("ListBox")
ssql(0) = "select ""Name"", ""ID"" from ""Farbe"""
oListboxKategorieModel.ListSource() = ssql()
oListboxKategorieModel.refresh()
End Sub
And it did change it's source. :)
The last thing needed is a trigger for switching the two selction modes.
Have fun,
Marc
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
