Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Flex-Grid Spaltenbreite
Autor: 13uro
Datum: 06.11.04 00:28
Hallo @all Ich fülle mit folgendem Code ein FlexGrid aus einer Tabelle mit Werten: Public Function FlexFillFromRs(Rs As ADODB.Recordset, Flex As MSFlexGrid) Dim i As Long Dim j As Long Dim breit As Single With Flex .Redraw = False .AllowBigSelection = True .AllowUserResizing = flexResizeBoth .Appearance = flex3D .FocusRect = flexFocusNone .FixedRows = 1 .FixedCols = 1 .Cols = Rs.Fields.Count For i = 0 To Rs.Fields.Count - 1 .TextMatrix(0, i) = Rs.Fields(i).Name Next .Rows = .FixedRows + Rs.RecordCount + 1 i = Rs.AbsolutePosition For j = 0 To Rs.Fields.Count - 1 If Not IsNull(Rs.Fields(j).Value) Then .TextMatrix(i, j) = Rs.Fields(j).Value End If Next Rs.MoveNext Loop 'Spaltenbreite optimieren For i = 0 To .Cols - 1 breit = 0 For j = 0 To .Rows - 1 If Me.TextWidth(.TextMatrix(j, i)) > breit Then breit = Me.TextWidth(.TextMatrix(j, i)) End If Next .ColWidth(i) = breit + 120 Next .Redraw = True End With End Function Das ganze funzt soweit auch ganz gut, lediglich wird die 4.Spalte des FlexGrid aber nicht in der Breite optimiert, die andern Spalten aber schon???? (Es sind insgesamt 9 Spalten in der Tabelle vorhanden) Weiss hierzu mir jemand einen Tipp?? Uli

Flex-Grid Spaltenbreite	578	13uro	06.11.04 00:28
Re: Flex-Grid Spaltenbreite	290	tobias2709	09.11.04 10:05
Re: Flex-Grid Spaltenbreite	280	13uro	09.11.04 14:20
Re: Flex-Grid Spaltenbreite	276	tobias2709	09.11.04 15:36
Re: Flex-Grid Spaltenbreite	258	13uro	09.11.04 15:45
Re: Flex-Grid Spaltenbreite	266	tobias2709	09.11.04 15:59
Re: Flex-Grid Spaltenbreite	297	13uro	09.11.04 20:56
Re: Flex-Grid Spaltenbreite	257	tobias2709	10.11.04 08:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen