Workaround: Inhalt im Listenfeld aktualisieren

[HeiDieLX2]

Hallo an alle die es Interessiert:

Ausgehend von dieser Diskussion: viewtopic.php?f=10&t=40038#p108941
habe ich mal ein allgemein gültiges Stück Code erstellt:

Code: Alles auswählen

SUB Feld_aktuell(oEvent AS OBJECT)
	'Eigenschaft Zusatzinformation (TAG) enthält den Feldnamen im Formular
	'Ereignis: Bei Fokuserhalt
	DIM oForm AS OBJECT
	DIM oZielFeld as OBJECT
	oForm = oEvent.Source.Model.Parent
	oZielFeld = oForm.getByName(oEvent.Source.Model.Tag)
	IF hasUnoInterfaces(oForm, "com.sun.star.form.XForm" ) THEN
		IF NOT ISNULL(oZielFeld) THEN
			oZielFeld.refresh()
		END IF
	END IF
END SUB

Ist getestet und läuft nun super in meiner Artikeleingabe.