[Visual Basic]
Private Sub Refresh_Details()

Quellcode

[Visual Basic]
    Private Sub Refresh_Details() 
 
        Try 
            Dim bm As Integer = 0 
            bm = Me.C1Vertragselemente.Bookmark 
            Cursor = Cursors.WaitCursor 
            If Me.rbSortVertragstyp.Checked And Me.TreeStruktur.SelectedNode.Level = 0 Then 
                c1data = Me.Strukturen.Update_Vertragsuebersicht(Me.TreeStruktur.SelectedNode.Tag, True, Me.TStxtSucheInhalt.Text) 
            Else 
                c1data = Me.Strukturen.Update_Vertragsuebersicht(Me.TreeStruktur.SelectedNode.Tag, , Me.TStxtSucheInhalt.Text) 
            End If 
            If Me.Profil.sV_Sort.ToString <> "" Then 
                c1data.DefaultView.Sort = Me.Profil.sV_Sort.ToString 
            End If 
            Dim gv As C1.Win.C1TrueDBGrid.DataViewEnum 
            Dim s As New Collection 
            Dim i As Integer = -1 
            For Each g As C1.Win.C1TrueDBGrid.C1DataColumn In Me.C1Vertragselemente.GroupedColumns 
                s.Add(g.Caption) 
                i = i + 1 
                '                xxx(i) = g.Caption 
            Next 
            i = Me.C1Vertragselemente.DataView 
            Me.C1Vertragselemente.Enabled = False 
            Me.C1Vertragselemente.DataSource = c1data 
            Me.C1Vertragselemente.DataMember = c1data.TableName 
            Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Vertragselemente, "Vertragsuebersicht", Me.c1data, Me.Profil.sV_Aktiv_Vertragselemente.Value) 
            Update_Details() 
            Docs.Get_Layout(Me.C1Vertragselemente, 1, Me.Profil.iProfilnr.Value) 
            Me.C1Vertragselemente.FetchRowStyles = True 
            If i <> 0 Then 
                Try 
                    Me.C1Vertragselemente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Normal 
                    Me.C1Vertragselemente.DataView = i 
                    For Each ss As String In s 
                        Me.C1Vertragselemente.GroupedColumns.Add(Me.C1Vertragselemente.Columns(ss)) 
                    Next 
 
                Catch ex As Exception 
 
                End Try 
            End If 
            s = Nothing 
 
            Try 
                Select Case Me.cbaktiveVertraege.CheckState 
                    Case CheckState.Checked 
                        C1Vertragselemente.Columns("aktiv").FilterText = True 
                    Case CheckState.Unchecked 
                        C1Vertragselemente.Columns("aktiv").FilterText = False 
                    Case CheckState.Indeterminate 
                        C1Vertragselemente.Columns("aktiv").FilterText = "" 
                End Select 
            Catch ex As Exception 
 
            End Try 
            Try 
                Me.C1Vertragselemente.Bookmark = bm 
            Catch ex As Exception 
 
            End Try 
            Me.C1Vertragselemente.Enabled = True 
        Catch ex As Exception 
        Finally 
            Cursor = Cursors.Default 
 
        End Try 
    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

frmVertragsuebersicht