Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sevgrid: FilterButtonClick wird von Enter-Taste ignoriert
Autor: HoGe72
Datum: 07.05.10 12:43
Hallo, in einem Datagrid möchte ich die Filterzeile zum filtern eines dem Grid angehängten Recordsets benutzen. Ein expliziter Klick auf dem Filter-Button bringt auch den gewünschten Effekt. In der Hilfe war zu lesen, dass FilterButtonClick-Ereignis auch per Tastendruck auf die Enter-Taste ausgelöst werden soll. Leider ist das bei mir nicht der Fall. Welche Einstellung habe ich nicht vorgenommen??? Listing der Vorbereitung des Datagrids: Private Sub prepareGridModeRecordset() 'Variabeln Dim i As Integer 'Die Attribute des Datagrid setzen With lstSoll 'Inhalte löschen .Clear True ' autom. Neuzeichnen des DataGrids unterbinden .LockUpdate True .AllowColumnReorder = True 'Wenn es ungleiche Salden gibt If mRsSoll.RecordCount > 0 Then 'Als Datenbasis ein Recordset benutzen .DataMode = Mode_Recordset 'Nun die Spalten vorbereiten For i = 0 To mRsSoll.Fields.Count - 1 Select Case mRsSoll.Fields(i).Type Case adInteger: .ColumnAdd , mRsSoll.Fields(i).name, 0, , False Case adVarChar: .ColumnAdd , mRsSoll.Fields(i).name, 1500, ALIGNMENT_RIGHT, , , ALIGNMENT_RIGHT, , IIf(IsNumeric(mRsSoll.Fields(i).Value), SORT_NUMERIC, SORT_TEXT) Case adDate: .ColumnAdd , mRsSoll.Fields(i).name, 1000, , ALIGNMENT_RIGHT, , ALIGNMENT_CENTER, , SORT_DATE Case adCurrency: .ColumnAdd , mRsSoll.Fields(i).name, 1000, ALIGNMENT_RIGHT, , , ALIGNMENT_CENTER, , SORT_CURRENCY End Select Next i 'Spalten laden loadGridFormat 'Und die Sortierung automatisieren .AutoSort = True .ScrollBars = SB_AUTO .ColumnHeadersVisible = True 'feststehende Spalte einblenden .FixedColWidth = 700 .FixedCol = True .FixedColumns(1).SortType = SORT_NUMERIC ' Filterzeile oberhalb der Spaltenköpfe anzeigen .FilterAlign = FILTER_ALIGN_TOP .FilterForeColorDisabled = vbGrayText .FilterVisible = True .AllowFilterEdit = True .FilterMoveTAB = True .FilterTextFixCol = "Suche:" 'RS setzen Set .Recordset = mRsSoll ' mFilter-Array dimensionieren ReDim mFilter(.Cols) Else .DataMode = Mode_List 'Eine Zeile ausgeben, dass keine Solldaten vorhanden sind .ColumnAdd "Text", 2000 'Keine Scrollbars zulassen .ScrollBars = SB_NONE ' Zeile hinzufügen .AddItem ("Keine Sollstellungen vorhanden.") 'Die Letzte Spalte an das Grid anpassen .Columns(1).AdjustWidthToGridSize 'Die Spalten ausblenden .ColumnHeadersVisible = False ' Filterzeile oberhalb der Spaltenköpfe anzeigen .FilterVisible = False End If 'Nur die bestehenden Gridlines anzeigen .GridLinesShowAlways = False .GridLines = 0 'Die Fußzeile verstecken .FooterVisible = False ' Neuzeichnen des DataGrids wieder aktivieren .LockUpdate False .Refresh End With End Sub

sevgrid: FilterButtonClick wird von Enter-Taste ignoriert	2.198	HoGe72	07.05.10 12:43
Re: sevgrid: FilterButtonClick wird von Enter-Taste ignorier...	1.160	Dieter	07.05.10 19:51
Re: sevgrid: FilterButtonClick wird von Enter-Taste ignorier...	1.106	HoGe72	19.05.10 13:17
Re: sevgrid: FilterButtonClick wird von Enter-Taste ignorier...	968	hdo	03.12.15 13:54
Re: sevgrid: FilterButtonClick wird von Enter-Taste ignorier...	822	Dieter	09.12.15 19:15
Re: sevgrid: FilterButtonClick wird von Enter-Taste ignorier...	812	hdo	10.12.15 07:13

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