Neuer Vertragskontakt erstellen
[Visual Basic] Private Sub ReleaseLogbuchNeuToolStripMenuItem_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
ReleaseLogbuchNeuToolStripMenuItem.Click
[Visual Basic] Private Sub ReleaseLogbuchNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReleaseLogbuchNeuToolStripMenuItem.Click
Try
'Dim i As Integer = Me.Vertragselement.Vertragskontakt.Add_New(Me.Vertragselement.iVertragselementnr.Value)
Dim f As New FrmReleaseLogbuch(0, Me.Aktuelle_Applikation, True, Me.FormReadonly)
f.MdiParent = Me.MdiParent
f.Show()
'f.ShowDialog()
'Me.Refresh_ReleaseLogbuch()
Catch ex As Exception
End Try
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition