|
| |
Fragen & Antworten rund um sev-Komponenten| sevdatagrid3 Filterzeile - autocopmlete = false | |  | | Autor: Hartl | | Datum: 03.12.16 22:18 |
| Folgendes Problem:
Obwohl ich die .AutoComplete = False (siehe unten) gesetzt habe, wird immer die die Auswahl aus der Combobox bei der Filtereingabe vervollständigt, wie wenn diese Funktion gar nicht funktionieren würde !!!
Kann man dies irgendwie umgehen?
Vielen Dank für eine Info.
Private Sub sevDataGridWZ_FilterStartEdit(nCol As Long, sFilter As String, _
FilterImage As Long, Style As sevDataGrid3.sevGridFilterStyle, _
oComboBox As sevDataGrid3.EditComboBox, DropDown As Boolean)
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("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
' autom. Vervollständigen der Eingabe ausschalten - funktioniert nicht
' ????
.AutoComplete = False
End With
DropDown = True 'automatisch aufklappen
Call SetFilter
End Sub | |
| Re: sevdatagrid3 Filterzeile - autocopmlete = false | | | | Autor: Hartl | | Datum: 05.12.16 22:23 |
| Hallo,
ich habe die neue Version sevdatagrid3.ocx neu registriert
und danach die cpl. Version installiert.
Leider funktioniert die autocomplete = false Funktion nur im Datenbereich,
in der Filterzeile jedoch nicht.
Bin mir aber nicht sicher ob ich hierzu noch den Befehl anpassen müßte.
Ist ja nur ein Schönheitsfehler.
Vielleicht geht es ja doch irgendwie.
Viele Grüße
Hartl | |
| 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 | |
| Re: sevdatagrid3 Filterzeile - autocopmlete = false | | | | Autor: Hartl | | Datum: 08.12.16 22:40 |
| Hallo Dieter,
nach dem abschalten der Benutzerkontensteuerung habe ich nun ohne den Fehler 0x80004005
die Registrierung der sevdatagrid3.ocx vornehmen können.
Bestätigung: "DllRegisterServer in sevDataGrid3.ocx erfolgreich durchgeführt"
Aber es wird immer noch die Version 3.0.5 im Eigenschaftsfenster abgezeigt.
Ich weis jetzt nicht mehr weiter. | |
| Re: sevdatagrid3 Filterzeile - autocopmlete = false | | | | Autor: Hartl | | Datum: 09.12.16 09:00 |
| Hallo Dieter,
leider immer noch mit Vista.
Trau mich nicht über den Aufwand zu wechseln - wird aber wohl mal notwendig werden.
Vielen Dank für deine schnelle Hilfe
Grüße
Hans | |
| Re: sevdatagrid3 Filterzeile - autocopmlete = false | | | | Autor: Hartl | | Datum: 09.12.16 09:17 |
| Habs rausgefunden - es ist ein 32 Bit System
Ja, da bin ich nicht so fit
Grüße
Hans | |
| Re: sevdatagrid3 Filterzeile - autocopmlete = false | | | | Autor: Hartl | | Datum: 09.12.16 09:47 |
| Hab alles gemacht incl. Registrierung die auch bestätigt wurde.
Im VB Eigenschaftsfenster wird aber immer noch die Version "sevDataGrid ActiveX v3.0.5" angezeigt
Übrigens die beim Download mitgelieferte Datei "sevDataGrid3.DEP" zeigt noch folgende Version an:
[Version]
Version=3.0.0.5
[sevDataGrid3.ocx <0007>]
Dest=$(WinSysPath)
Date=13.05.16
Time=09:45
Version=3.0.0.5
CABFilename=
CABINFFile=
Uses1=MSVBVM60.DLL
Uses2=OLEAUT32.DLL
Uses3=OLEPRO32.DLL
Uses4=ASYCFILT.DLL
Uses5=STDOLE2.TLB
Uses6=COMCAT.DLL
Uses7=VB6DE.DLL
Grüße
Hans | |
| Re: sevdatagrid3 Filterzeile - autocopmlete = false | | | | Autor: Hartl | | Datum: 09.12.16 10:00 |
| Hallo Dieter,
ja jetzt läuft es.
Vielen Dank nochmal für die außerst schnelle Hilfe
Grüße
Hans | |
 | 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! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|
Mai 2024
Sie sind aktuell nicht angemeldet.
