|
|
Public Class frmGremienverwaltung
|
|
|
#Region "Deklarationen"
|
|
|
Dim Gremienverwaltung As New clsGremienverwaltung
|
|
|
Dim msg As New TKB.VV.Utils.MyMessage
|
|
|
Dim Vertragspartner As New TKB.VV.Vertrag.clsVertragspartner
|
|
|
Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
|
|
|
|
|
|
Private VertragspartnerNr As Integer
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
Private Sub frmGremienverwaltung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
Try
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
Me.C1Gremium.DataSource = Gremienverwaltung.Gremium.Tabledata.Tables(0)
|
|
|
Me.C1Gremium.DataMember = Gremienverwaltung.Gremium.Tablename
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Gremium, "Gremium", Me.Gremienverwaltung.Gremium.Tabledata)
|
|
|
Me.VertragspartnerNr = 1
|
|
|
Me.Get_Vertragspartner()
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
Me.Cursor = Cursors.Default
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Gremium_AfterFilter(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FilterEventArgs) Handles C1Gremium.AfterFilter
|
|
|
Try
|
|
|
Me.C1Grp.DataSource = Gremienverwaltung.GremiumGruppe.Tabledata.Tables(0)
|
|
|
Me.C1Grp.DataMember = Gremienverwaltung.GremiumGruppe.Tablename
|
|
|
Me.C1Grp.Columns("Gremiumnr").FilterText = Me.C1Gremium.Columns("Gremiumnr").Value.ToString
|
|
|
Me.C1Grp.Columns("Aktiv").FilterText = "True"
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Grp, "GremiumGruppierung", Me.Gremienverwaltung.GremiumGruppe.Tabledata)
|
|
|
C1Grp_AfterFilter(sender, e)
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Gremium_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Gremium.RowColChange
|
|
|
Try
|
|
|
Me.C1Grp.DataSource = Gremienverwaltung.GremiumGruppe.Tabledata.Tables(0)
|
|
|
Me.C1Grp.DataMember = Gremienverwaltung.GremiumGruppe.Tablename
|
|
|
Me.C1Grp.Columns("Gremiumnr").FilterText = Me.C1Gremium.Columns("Gremiumnr").Value.ToString
|
|
|
Me.C1Grp.Columns("Aktiv").FilterText = "True"
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Grp, "GremiumGruppierung", Me.Gremienverwaltung.GremiumGruppe.Tabledata)
|
|
|
C1Grp_RowColChange(sender, e)
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Grp_AfterFilter(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FilterEventArgs) Handles C1Grp.AfterFilter
|
|
|
Try
|
|
|
Me.C1Bereich.DataSource = Gremienverwaltung.GremiumBereich.Tabledata.Tables(0)
|
|
|
Me.C1Bereich.DataMember = Gremienverwaltung.GremiumBereich.Tablename
|
|
|
If Me.C1Grp.Columns("GremiumGruppierungNr").Value.ToString = "" Then
|
|
|
Me.C1Bereich.Columns("GremiumGruppierungNr").FilterText = "-999"
|
|
|
Else
|
|
|
Me.C1Bereich.Columns("GremiumGruppierungNr").FilterText = Me.C1Grp.Columns("GremiumGruppierungNr").Value.ToString
|
|
|
End If
|
|
|
Me.C1Bereich.Columns("Aktiv").FilterText = "True"
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Bereich, "GremiumBereich", Me.Gremienverwaltung.GremiumBereich.Tabledata)
|
|
|
C1Bereich_AfterFilter(sender, e)
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Bereich_AfterFilter(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FilterEventArgs) Handles C1Bereich.AfterFilter
|
|
|
Try
|
|
|
Me.C1Personen.DataSource = Nothing
|
|
|
Me.C1Personen.DataSource = Gremienverwaltung.Gremiumperson.Tabledata.Tables(0)
|
|
|
Me.C1Personen.DataMember = Gremienverwaltung.GremiumGruppe.Tablename
|
|
|
If Me.C1Bereich.Columns("GremiumBereichnr").Value.ToString = "" Then
|
|
|
Me.C1Personen.Columns("GremiumBereichNr").FilterText = "-999"
|
|
|
Else
|
|
|
Me.C1Personen.Columns("GremiumBereichNr").FilterText = Me.C1Bereich.Columns("GremiumBereichnr").Value.ToString
|
|
|
End If
|
|
|
Me.C1Personen.Columns("Aktiv").FilterText = "True"
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Personen, "GremiumPerson", Me.Gremienverwaltung.Gremiumperson.Tabledata)
|
|
|
|
|
|
'Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen.Tabledata.Tables(0)
|
|
|
Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen
|
|
|
Me.C1RolleDropDown.ValueMember = "Kontakttypnr"
|
|
|
Me.C1RolleDropDown.DisplayMember = "Bezeichnung"
|
|
|
Me.C1Personen.Columns("Rollenr").DropDown = Me.C1RolleDropDown
|
|
|
Me.C1RolleDropDown.ValueTranslate = True
|
|
|
Me.C1RolleDropDown.DisplayColumns(0).Width = 0
|
|
|
Me.C1RolleDropDown.Columns("ApplikationsbereichNr").FilterText = "3"
|
|
|
Me.C1RolleDropDown.DisplayColumns(1).Width = Me.C1RolleDropDown.Width
|
|
|
Me.C1Personen.Columns("Rollenr").ValueItems.Translate = True
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Grp_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Grp.Leave, C1Bereich.Leave, C1Gremium.Leave, C1Personen.Leave
|
|
|
If Me.Gremienverwaltung.Gremium.Tabledata.HasChanges Or Me.Gremienverwaltung.GremiumGruppe.Tabledata.HasChanges Or _
|
|
|
Me.Gremienverwaltung.GremiumBereich.Tabledata.HasChanges Or Me.Gremienverwaltung.GremiumPerson.Tabledata.HasChanges Then
|
|
|
If msg.Show_MessageYesNo(3) = MsgBoxResult.Yes Then
|
|
|
TSBtnSave_Click(sender, e)
|
|
|
End If
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
Private Sub C1Grp_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Grp.RowColChange
|
|
|
Try
|
|
|
Me.C1Bereich.DataSource = Gremienverwaltung.GremiumBereich.Tabledata.Tables(0)
|
|
|
Me.C1Bereich.DataMember = Gremienverwaltung.GremiumBereich.Tablename
|
|
|
If Me.C1Grp.Columns("GremiumGruppierungNr").Value.ToString = "" Then
|
|
|
Me.C1Bereich.Columns("GremiumGruppierungNr").FilterText = "-999"
|
|
|
Else
|
|
|
Me.C1Bereich.Columns("GremiumGruppierungNr").FilterText = Me.C1Grp.Columns("GremiumGruppierungNr").Value.ToString
|
|
|
End If
|
|
|
Me.C1Bereich.Columns("Aktiv").FilterText = "True"
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Bereich, "GremiumBereich", Me.Gremienverwaltung.GremiumBereich.Tabledata)
|
|
|
C1Bereich_RowColChange(sender, e)
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
End Sub
|
|
|
Private Sub C1Bereich_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Bereich.RowColChange
|
|
|
Try
|
|
|
Me.C1Personen.DataSource = Nothing
|
|
|
Me.C1Personen.DataSource = Gremienverwaltung.Gremiumperson.Tabledata.Tables(0)
|
|
|
Me.C1Personen.DataMember = Gremienverwaltung.GremiumGruppe.Tablename
|
|
|
If Me.C1Bereich.Columns("GremiumBereichnr").Value.ToString = "" Then
|
|
|
Me.C1Personen.Columns("GremiumBereichNr").FilterText = "-999"
|
|
|
Else
|
|
|
Me.C1Personen.Columns("GremiumBereichNr").FilterText = Me.C1Bereich.Columns("GremiumBereichnr").Value.ToString
|
|
|
End If
|
|
|
Me.C1Personen.Columns("Aktiv").FilterText = "True"
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Personen, "GremiumPerson", Me.Gremienverwaltung.Gremiumperson.Tabledata)
|
|
|
|
|
|
'Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen.Tabledata.Tables(0)
|
|
|
Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen
|
|
|
Me.C1RolleDropDown.ValueMember = "Kontakttypnr"
|
|
|
Me.C1RolleDropDown.DisplayMember = "Bezeichnung"
|
|
|
Me.C1Personen.Columns("Rollenr").DropDown = Me.C1RolleDropDown
|
|
|
Me.C1RolleDropDown.ValueTranslate = True
|
|
|
Me.C1RolleDropDown.DisplayColumns(0).Width = 0
|
|
|
Me.C1RolleDropDown.Columns("ApplikationsbereichNr").FilterText = "3"
|
|
|
Me.C1RolleDropDown.DisplayColumns(1).Width = Me.C1RolleDropDown.Width
|
|
|
Me.C1Personen.Columns("Rollenr").ValueItems.Translate = True
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#Region "C1 Handling"
|
|
|
''' <summary>
|
|
|
''' Aktualisierung der Spalten mutiert_am und mutierern. Sofern noch kein Schl<68>sselwert gesetzt ist (bei neuem Datensatz)
|
|
|
''' wird dieser aus der Keytabelle ausgelesen und zugewiesen.
|
|
|
''' </summary>
|
|
|
''' <param name="sender"></param>
|
|
|
''' <param name="e"></param>
|
|
|
''' <remarks>Je Domaintable ist ein Eintrag in der Key-Tabelle notwendig</remarks>
|
|
|
Private Sub C1Gremium_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Gremium.AfterColUpdate
|
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
|
|
|
|
Dim i As Integer
|
|
|
Try
|
|
|
For i = 0 To Me.C1Gremium.Columns.Count - 1
|
|
|
If LCase(Me.C1Gremium.Columns(i).DataField) = "mutiert_am" Then Me.C1Gremium.Columns(i).Value = Now
|
|
|
If LCase(Me.C1Gremium.Columns(i).DataField) = "mutierer" Then Me.C1Gremium.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
|
Next
|
|
|
|
|
|
'neuer DB-Key ausl<73>sen, sofern kein Key vorhanden ist
|
|
|
If Me.C1Gremium.Columns(0).Value Is DBNull.Value Then
|
|
|
Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle()
|
|
|
Dim key As Long
|
|
|
dbkey.cpMainConnectionProvider = conn
|
|
|
key = dbkey.get_dbkey(Me.Gremienverwaltung.Gremium.Tablename)
|
|
|
Me.C1Gremium.Columns(0).Value = key
|
|
|
For i = 0 To Me.C1Gremium.Columns.Count - 1
|
|
|
If LCase(Me.C1Gremium.Columns(i).DataField) = "mandantnr" Then
|
|
|
Me.C1Gremium.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
|
End If
|
|
|
If LCase(Me.C1Gremium.Columns(i).DataField) = "erstellt_am" Then
|
|
|
Me.C1Gremium.Columns(i).Value = Now
|
|
|
End If
|
|
|
If LCase(Me.C1Gremium.Columns(i).DataField) = "aktiv" Then
|
|
|
Me.C1Gremium.Columns(i).Value = 1
|
|
|
End If
|
|
|
Next
|
|
|
dbkey.Dispose()
|
|
|
End If
|
|
|
Catch
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
|
''' Aktualisierung der Spalten mutiert_am und mutierern. Sofern noch kein Schl<68>sselwert gesetzt ist (bei neuem Datensatz)
|
|
|
''' wird dieser aus der Keytabelle ausgelesen und zugewiesen.
|
|
|
''' </summary>
|
|
|
''' <param name="sender"></param>
|
|
|
''' <param name="e"></param>
|
|
|
''' <remarks>Je Domaintable ist ein Eintrag in der Key-Tabelle notwendig</remarks>
|
|
|
Private Sub C1Grp_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Grp.AfterColUpdate
|
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
|
|
|
|
Dim i As Integer
|
|
|
Try
|
|
|
For i = 0 To Me.C1Grp.Columns.Count - 1
|
|
|
If LCase(Me.C1Grp.Columns(i).DataField) = "mutiert_am" Then Me.C1Grp.Columns(i).Value = Now
|
|
|
If LCase(Me.C1Grp.Columns(i).DataField) = "mutierer" Then Me.C1Grp.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
|
Next
|
|
|
|
|
|
'neuer DB-Key ausl<73>sen, sofern kein Key vorhanden ist
|
|
|
If Me.C1Grp.Columns(0).Value Is DBNull.Value Then
|
|
|
Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle()
|
|
|
Dim key As Long
|
|
|
dbkey.cpMainConnectionProvider = conn
|
|
|
key = dbkey.get_dbkey(Me.Gremienverwaltung.GremiumGruppe.Tablename)
|
|
|
Me.C1Grp.Columns(0).Value = key
|
|
|
For i = 0 To Me.C1Grp.Columns.Count - 1
|
|
|
If LCase(Me.C1Grp.Columns(i).DataField) = "mandantnr" Then
|
|
|
Me.C1Grp.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
|
End If
|
|
|
If LCase(Me.C1Grp.Columns(i).DataField) = "erstellt_am" Then
|
|
|
Me.C1Grp.Columns(i).Value = Now
|
|
|
End If
|
|
|
If LCase(Me.C1Grp.Columns(i).DataField) = "aktiv" Then
|
|
|
Me.C1Grp.Columns(i).Value = 1
|
|
|
End If
|
|
|
If LCase(Me.C1Grp.Columns(i).DataField) = "gremiumnr" Then
|
|
|
Me.C1Grp.Columns(i).Value = Me.C1Gremium.Columns("Gremiumnr").Value
|
|
|
End If
|
|
|
Next
|
|
|
dbkey.Dispose()
|
|
|
End If
|
|
|
Catch
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Bereich_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Bereich.AfterColUpdate
|
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
|
|
|
|
Dim i As Integer
|
|
|
Try
|
|
|
For i = 0 To Me.C1Bereich.Columns.Count - 1
|
|
|
If LCase(Me.C1Bereich.Columns(i).DataField) = "mutiert_am" Then Me.C1Bereich.Columns(i).Value = Now
|
|
|
If LCase(Me.C1Bereich.Columns(i).DataField) = "mutierer" Then Me.C1Bereich.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
|
Next
|
|
|
|
|
|
'neuer DB-Key ausl<73>sen, sofern kein Key vorhanden ist
|
|
|
If Me.C1Bereich.Columns(0).Value Is DBNull.Value Then
|
|
|
Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle()
|
|
|
Dim key As Long
|
|
|
dbkey.cpMainConnectionProvider = conn
|
|
|
key = dbkey.get_dbkey(Me.Gremienverwaltung.GremiumBereich.Tablename)
|
|
|
Me.C1Bereich.Columns(0).Value = key
|
|
|
For i = 0 To Me.C1Bereich.Columns.Count - 1
|
|
|
If LCase(Me.C1Bereich.Columns(i).DataField) = "mandantnr" Then
|
|
|
Me.C1Bereich.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value
|
|
|
End If
|
|
|
If LCase(Me.C1Bereich.Columns(i).DataField) = "erstellt_am" Then
|
|
|
Me.C1Bereich.Columns(i).Value = Now
|
|
|
End If
|
|
|
If LCase(Me.C1Bereich.Columns(i).DataField) = "aktiv" Then
|
|
|
Me.C1Bereich.Columns(i).Value = 1
|
|
|
End If
|
|
|
If LCase(Me.C1Bereich.Columns(i).DataField) = "gremiumgruppierungnr" Then
|
|
|
Me.C1Bereich.Columns(i).Value = Me.C1Grp.Columns("Gremiumgruppierungnr").Value
|
|
|
End If
|
|
|
Next
|
|
|
dbkey.Dispose()
|
|
|
End If
|
|
|
Catch
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
|
|
If Me.Gremienverwaltung.Gremium.Tabledata.HasChanges Then Me.Gremienverwaltung.Gremium.Save_Data()
|
|
|
If Me.Gremienverwaltung.GremiumGruppe.Tabledata.HasChanges Then Me.Gremienverwaltung.GremiumGruppe.Save_Data()
|
|
|
If Me.Gremienverwaltung.GremiumBereich.Tabledata.HasChanges Then Me.Gremienverwaltung.GremiumBereich.Save_Data()
|
|
|
If Me.Gremienverwaltung.GremiumPerson.Tabledata.HasChanges Then Me.Gremienverwaltung.GremiumPerson.Save_Data()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
|
Me.Close()
|
|
|
End Sub
|
|
|
#Region "Vertragspartner"
|
|
|
|
|
|
#End Region
|
|
|
''' <summary>
|
|
|
''' Vertragspartner suchen
|
|
|
''' </summary>
|
|
|
''' <param name="sender"></param>
|
|
|
''' <param name="e"></param>
|
|
|
''' <remarks></remarks>
|
|
|
Private Sub btnVertragspartnersuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVertragspartnersuche.Click
|
|
|
Dim f As New frmVertragspartnerSuche
|
|
|
f.ShowDialog()
|
|
|
If f.Vertragspartnernr <> -1 Then
|
|
|
Me.VertragspartnerNr = f.Vertragspartnernr
|
|
|
f.Dispose()
|
|
|
Me.Get_Vertragspartner()
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Function Get_Vertragspartner()
|
|
|
Me.txtVertragspartner.Text = Me.Vertragspartner.Get_Vertragspartnername(Me.VertragspartnerNr)
|
|
|
Get_Vertragspartner_Kontakte()
|
|
|
End Function
|
|
|
|
|
|
Private Function Get_Vertragspartner_Kontakte()
|
|
|
Try
|
|
|
'If Check_Changes() = False Then Exit Function
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
Me.C1Kontaktpersonen.Enabled = False
|
|
|
Me.Vertragspartner.Get_Kontaktpersonen(Me.C1Kontaktpersonen)
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Kontaktpersonen, "Person", Me.Vertragspartner.Kontaktpersonen.Tabledata)
|
|
|
Me.C1Kontaktpersonen.Enabled = True
|
|
|
End Function
|
|
|
|
|
|
Private Sub BtnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnInsert.Click
|
|
|
Me.Gremienverwaltung.Insert_Gremium_Person(Me.C1Kontaktpersonen.Columns("PersonNr").Value, Me.C1Bereich.Columns("Gremiumbereichnr").Value)
|
|
|
Me.C1Personen.DataSource = Nothing
|
|
|
Me.C1Personen.DataSource = Gremienverwaltung.Gremiumperson.Tabledata.Tables(0)
|
|
|
Me.C1Personen.DataMember = Gremienverwaltung.GremiumGruppe.Tablename
|
|
|
Me.C1Personen.Columns("GremiumBereichNr").FilterText = Me.C1Bereich.Columns("GremiumBereichnr").Value.ToString
|
|
|
Me.C1Personen.Columns("Aktiv").FilterText = "True"
|
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Personen, "GremiumPerson", Me.Gremienverwaltung.Gremiumperson.Tabledata)
|
|
|
' Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen.Tabledata.Tables(0)
|
|
|
Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen
|
|
|
Me.C1RolleDropDown.ValueMember = "Kontakttypnr"
|
|
|
Me.C1RolleDropDown.DisplayMember = "Bezeichnung"
|
|
|
Me.C1RolleDropDown.ValueTranslate = True
|
|
|
Me.C1Personen.Columns("Rollenr").DropDown = Me.C1RolleDropDown
|
|
|
Me.C1RolleDropDown.DisplayColumns(0).Width = 0
|
|
|
Me.C1RolleDropDown.DisplayColumns(1).Width = Me.C1RolleDropDown.Width
|
|
|
' Me.C1RolleDropDown.Columns("ApplikationsbereichNr").FilterText = "3"
|
|
|
Me.C1Personen.Columns("Rollenr").ValueItems.Translate = True
|
|
|
|
|
|
End Sub
|
|
|
End Class |
