[GELÖST] Unterformular und abhängiges Listenfeld befüllen

[F3K Total]

Hi,
bei mir läuft es mit diesem Code:

Code: Alles auswählen

Sub UKatFuellen

       Dim sSQL(0) as string

       oDoc = ThisComponent
       oForm=oDoc.drawpage.forms.MainForm
       oFormsub=oForm.SubForm
       sKategorie = oForm.SubForm.SubForm_Grid.GeraeteArt.CurrentValue
       sSQL(0)= "SELECT ""GeraeteBezeichnung"" FROM ""Para_Werte"", ""Para_Klasse"" WHERE ""Para_Werte"".""ID_ParaKl"" = ""Para_Klasse"".""ID_ParaKl"" AND ""Para_Klasse"".""Name"" = '"+sKategorie+"'"
       oList=oForm.SubForm.SubForm_Grid.GeraeteBezeichnung
       oList.ListSource = sSQL()
       oList.refresh
    End Sub

Dem String sSQL fehlte noch so einiges, und ganz wichtig das oList.refresh

Viel Spaß
R