|
| |
Fragen & Antworten rund um sev-Komponenten| Re: sevdatagrid3 Filterzeile - autocopmlete = false | |  | | Autor: Hartl | | Datum: 08.12.16 20:09 |
| Hallo Dieter,
ich meine der Code (siehe unten) müßte doch stimmen.
Aber wo ich mir nicht sicher bin, ob die neue Version auch registriert wurde.
Ich habs zunächst mit dem Bugfix/Patches runtergeladen und wollte die sevdatagrid3.ocx registrieren,
hat aber immer einen Fehler gebracht (ggf. mein altes Windows Vista)
Dann habe ich mir die Komplettinsatllation heruntergeladen und neu installiert.
Unter ... Windows\System32 steht diese sevdatagrid3.ocx vom 05.12.2016 auch.
Aber ob diese registriert ist weis ich nicht. Kann man das prüfen?
Übrigens in der sevdatagrid3.dep steht noch Version=3.0.0.5 vom 13.05.16
--------------------- cpl. Code --------------------------------------------------
'Eingabe der Filterkriterien
'Für bestimme Spalten soll statt der TextBox eine ComboBox angezeigt werden, so dass der Anwender bequem aus einem Filterkriterium auswählen kann.
Private Sub sevDataGridWZ_FilterStartEdit(nCol As Long, sFilter As String, _
FilterImage As Long, Style As sevDataGrid3.sevGridFilterStyle, _
oComboBox As sevDataGrid3.EditComboBox, DropDown As Boolean)
'Comboboxen
Set rsCombo = New ADODB.Recordset
Set rsCombo.ActiveConnection = con
rsCombo.CursorType = adOpenKeyset
rsCombo.LockType = adLockOptimistic
With sevDataGridWZ
If nCol = .GetCol("WZOK") Then
' In der Spalte WZOK -> ComboList mit JA und NEIN"
Style = FILTER_COMBOLIST
With oComboBox
.AddItem "JA"
.AddItem "NEIN"
.Width = 600
End With
ElseIf nCol = .GetCol("WZInaktiv") Then
Style = FILTER_COMBOLIST
With oComboBox
.AddItem "JA"
.AddItem "NEIN"
.Width = 600
End With
ElseIf nCol = .GetCol("WZLagerort") Then
SQL = "SELECT Distinct WZLagerort FROM WZStammdaten_TAB WHERE WZLagerort <> ' ' ORDER BY WZLagerort"
rsCombo.Open SQL, , , , adCmdText
Style = FILTER_COMBOBOX
With oComboBox
Set .Recordset = rsCombo
.Width = 2000
.BoundColumn = 1
.DisplayColumn = 1
.ListRowsMax = 15
.AutoComplete = False
End With
ElseIf nCol = .GetCol("WZMaschTyp") Then
SQL = "SELECT Distinct WZMaschTyp FROM WZStammdaten_TAB WHERE WZMaschTyp <> ' ' ORDER BY WZMaschTyp"
rsCombo.Open SQL, , , , adCmdText
Style = FILTER_COMBOBOX
With oComboBox
Set .Recordset = rsCombo
.Width = 2500
.ListRowsMax = 15
.AutoComplete = False
End With
ElseIf nCol = .GetCol("WZVerwIndex") Then
SQL = "SELECT Distinct WZVerwIndex FROM WZStammdaten_TAB WHERE WZVerwIndex <> ' ' ORDER BY WZVerwIndex"
rsCombo.Open SQL, , , , adCmdText
Style = FILTER_COMBOBOX
With oComboBox
Set .Recordset = rsCombo
.Width = 750
.ListRowsMax = 15
.AutoComplete = False
End With
ElseIf nCol = .GetCol("WZHauptgruppe") Then
SQL = "SELECT Distinct WZHauptgruppe FROM WZStammdaten_TAB WHERE WZHauptgruppe <> ' ' ORDER BY WZHauptgruppe"
rsCombo.Open SQL, , , , adCmdText
Style = FILTER_COMBOBOX
With oComboBox
Set .Recordset = rsCombo
.Width = 2500
.ListRowsMax = 15
.AutoComplete = False
End With
ElseIf nCol = .GetCol("WZDetail") Then
SQL = "SELECT Distinct WZDetail FROM WZStammdaten_TAB WHERE WZDetail <> ' ' ORDER BY WZDetail"
rsCombo.Open SQL, , , , adCmdText
Style = FILTER_COMBOBOX
With oComboBox
Set .Recordset = rsCombo
.Width = 2500
.ListRowsMax = 15
.AutoComplete = False
End With
End If
End With
DropDown = True 'automatisch aufklappen
Call SetFilter
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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere Infos
|
| |
|
Copyright ©2000-2024 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
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.
