Kontakte auslesen und dem TrueDBGrid übergeben
[Visual Basic] Public Function Get_Applikationskontakte( _
ByRef c1data As C1TrueDBGrid _
) As Object
[Visual Basic] Public Function Get_Applikationskontakte(ByRef c1data As C1TrueDBGrid)
Try
Applikationskontakte.dispose()
Applikationskontakte = Nothing
Catch ex As Exception
End Try
Applikationskontakte = New TKB.VV.Sysadmin.DomainTable("Applikationkontakt", Me.iApplikationNr.ToString, Globals.clsmitarbeiter.iMitarbeiternr.Value)
c1data.DataSource = Applikationskontakte.Tabledata
c1data.DataMember = Applikationskontakte.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