|
| |
Fragen & Antworten rund um sev-Komponenten| 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 | |
 | 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 |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
