Dim aParam(1) As ObjectaParam(0) = "N" --->New record to add, the edit-button on the parentform would set an "E"aParam(1) = "LIEFMAIN" --> Name of the calling formChildliefneu.ShowDialog(aParam)
Public Sub New(ByVal ParamArray aParam() As Object)MyBase.new()' Dieser Aufruf ist für den Designer erforderlich.InitializeComponent()' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.If aParam(0) = "N" ThenMe.lNeu = TrueMe.Text = "Lieferanten aufnehmen" -->"Add a supplier"LieferBO1.Add()ElseMe.lNeu = FalseMe.Text = "Lieferanten bearbeiten" --> "Edit a supplier"LieferBO1.Edit()End IfMe.cModule = aParam(1)LieferBO1.Refresh()Me.Refresh()End Sub