Neues Vertragselement laden

[Visual Basic]
Private Sub NeuesVertragselementErstellenToolStripMenuItem_Click( _ 
   ByVal sender As Object, _ 
   ByVal e As EventArgs _ 
) Handles  _ 
   NeuesVertragselementErstellenToolStripMenuItem.Click

Parameter

sender

e

Hinweise

Sind keine Elemente in der Vertragselement-Liste, Vertragspartner über Struktureintrag auslesen. Geht dies aufgrund der Datenkonstellation nicht, Vertragspartner 0 übergaben, damit ein Partner ausgesucht werden muss

Quellcode

[Visual Basic]
    Private Sub NeuesVertragselementErstellenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesVertragselementErstellenToolStripMenuItem.Click 
        Try 
            If Me.C1Vertragselemente.Splits(0).Rows.Count = 0 Then 
                Dim x As TKB.VV.Vertrag.Treenode_Descriptor = Me.TreeStruktur.SelectedNode.Tag 
                Dim f As New frmVertragselement(-1, False, True, x.Vertragspartnernr) 
                f.MdiParent = Me.MdiParent 
                f.Show() 
            Else 
                Dim f As New frmVertragselement(-1, False, True, Me.C1Vertragselemente.Columns("Vertragspartnernr").Value) 
                f.MdiParent = Me.MdiParent 
                f.Show() 
            End If 
        Catch ex As Exception 
            Dim f As New frmVertragselement(-1, False, True, 0) 
            f.MdiParent = Me.MdiParent 
            f.Show() 
        End Try 
    End Sub

Forderungen

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

Siehe auch

frmVertragsuebersicht