Profildaten speichern

[Visual Basic]
Private Sub Save_Data()

Hinweise

Nach dem Speichern wird das Layout-File des Grids im Profil gespeichert

Quellcode

[Visual Basic]
    Private Sub Save_Data() 
        C1Data.Enabled = False 
        Me.profil.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String)) 
        If Me.rbAktiveVertragspartner.Checked Then 
            Me.profil.bV_Aktiv_Vertragspartner = New SqlBoolean(CType(True, Boolean)) 
        Else 
            Me.profil.bV_Aktiv_Vertragspartner = New SqlBoolean(CType(False, Boolean)) 
        End If 
        If Me.rbAktiveVertragselemente.Checked Then Me.profil.sV_Aktiv_Vertragselemente = New SqlString(CType("True", String)) 
        If Me.rbAlleVertragselemente.Checked Then Me.profil.sV_Aktiv_Vertragselemente = New SqlString(CType("", String)) 
        If Me.rbInaktiveVertragselemente.Checked Then Me.profil.sV_Aktiv_Vertragselemente = New SqlString(CType("False", String)) 
        If Me.cboxAlleElemente.Checked Then Me.profil.bV_Struktur_Details = New SqlBoolean(CType(True, Boolean)) Else Me.profil.bV_Struktur_Details = New SqlBoolean(CType(False, Boolean)) 
 
        Dim i As Integer = 0 
        Dim s As String = "" 
        Dim sort As String = "" 
        'Sortierung sichern 
        For i = 0 To Me.lbSortKriterien.Items.Count - 1 
            s = Me.lbSortKriterien.Items(i) 
            s = s.Replace(" | Aufsteigend", " asc") 
            s = s.Replace(" | Absteigend", " desc") 
            If sort <> "" Then sort = sort + ", " 
            sort = sort + s 
        Next 
        Me.profil.sV_Sort = New SqlString(CType(sort, String)) 
 
        'Register sichern 
        s = "" 
        For i = 0 To Me.lbRegister.Items.Count - 1 
            s = s + Me.lbRegister.Items(i) & ";" 
        Next 
        Me.profil.sV_Register = New SqlString(CType(s, String)) 
 
        Me.profil.Save_Data() 
 
        'Spalten sichern  
        For i = 0 To Me.lbVorhandeneSpalten.Items.Count - 1 
            Try 
                Dim xx As Integer 
                For xx = 0 To Me.C1Data.Columns.Count - 1 
                    If Me.C1Data.Splits(0).DisplayColumns(xx).Name = Me.lbVorhandeneSpalten.Items(i) Then 
                        Me.C1Data.Splits(0).DisplayColumns(xx).Visible = False 
                    End If 
                Next 
                '                Me.DokList.Splits(0).DisplayColumns(F.ListBox1.Items(i)).Visible = False 
            Catch 
            End Try 
        Next 
        For i = 0 To Me.lbVerwendeteSpalten.Items.Count - 1 
            Try 
                Dim xx As Integer 
                For xx = 0 To Me.C1Data.Columns.Count - 1 
                    If Me.C1Data.Splits(0).DisplayColumns(xx).Name = Me.lbVerwendeteSpalten.Items(i) Then 
                        Me.C1Data.Splits(0).DisplayColumns(xx).Visible = True 
                    End If 
                Next 
            Catch 
            End Try 
        Next 
        C1Data.Enabled = True 
        Me.profil.Save_Data() 
        Me.docmgmt.Save_LayoutFile(C1Data, 1, Me.profil.iProfilnr.Value) 
        Me.FormdataChanged = False 
    End Sub

Forderungen

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

Siehe auch

frmProfilVerwaltung