Pendenzen auslesen und dem Truedbgrid übergeben. Ist im Feld Termin der Wert "01.01.1900" wird dieser durch NULL ersetzt
[Visual Basic] Public Function Get_Vertragselement_Referenzen( _
ByRef c1data As C1TrueDBGrid, _
ByVal Vertragselementnr As Integer _
) As Object
[Visual Basic] Public Function Get_Vertragselement_Referenzen(ByRef c1data As C1TrueDBGrid, ByVal Vertragselementnr As Integer)
Me.Get_Vertragselement(Vertragselementnr)
Vertragselement_Referenzen = New TKB.VV.Sysadmin.DomainTable("Vertragselement_Referenz", Me.iVertragselementnr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
Dim i As Integer = 0
c1data.DataSource = Vertragselement_Referenzen.Tabledata
c1data.DataMember = Vertragselement_Referenzen.Tabledata.Tables(0).TableName
End Function
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