Personenliste aktualisieren
[Visual Basic]
Private Sub Refresh_Personen()
[Visual Basic] Private Sub Refresh_Personen()
Try
If check_changes = False Then Exit Sub
Catch ex As Exception
End Try
Me.C1Kontakte.Enabled = True
Me.Vertragspartnerdata.Get_Kontaktpersonen(Me.C1Kontakte)
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Kontakte, "Person", Me.Vertragspartnerdata.Kontaktpersonen.Tabledata)
sec.Set_Form_Security(Me)
Me.C1Kontakte.Enabled = True
Me.Set_KontaktButtons()
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