Daten ab Form speichern
[Visual Basic]
Private Sub Save_data()
[Visual Basic] Private Sub Save_data()
Me.Referenzvertragdata.iReferenzvertragsnr = New SqlInt32(CType(Me.Akutelle_Referenz, Int32))
Me.Referenzvertragdata.iVertragselementnr_1 = New SqlInt32(CType(Me.Aktuelles_Vertragselement_1, Int32))
Me.Referenzvertragdata.iVertragselementnr_2 = New SqlInt32(CType(Me.Aktuelles_Vertragselement_2, Int32))
Me.Referenzvertragdata.iBeziehungstypNr = New SqlInt32(CType(Me.cboxBeziehungstyp.SelectedValue, Int32))
Me.Referenzvertragdata.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
Me.Referenzvertragdata.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked = True, Boolean))
Me.Referenzvertragdata.Save_Data()
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