|
| |
Fragen & Antworten rund um sev-Komponenten| DataGrid2 Fehler | |  | | Autor: hjt | | Datum: 23.04.10 17:14 |
| Hallo,
ich habe eine Problem mit dem sevDataGrid 2.1.0.30 unter Access 2003 auf einem einzelnen Rechner.
Ich lade das Grid beim Öffnen des Formulars mit Daten (Code s.u. - Mehr mache ich nicht mit dem Grid, weiteren Code bzgl. des Grids gibt es nicht!)
Das funktioniert ohne Fehler, die Daten werden korrekt im Grid angezeigt.
Sobald ich jetzt mit der Maus über das Grid fahre, erhalte ich die erste Fehlermeldung:
"Sie haben als Einstellung der Ereigniseigenschaft den Ausdruck ColumnMouseMove eingegeben. Dieser Ausdruck hat einen Fehler verursacht: Bei dem Versuch, ein ActiveX-Steuerelement auf eines Ihrer Formulare oder einen Ihrer Berichte zu laden, ist ein Fehler aufgetreten." - falsch ich habe für dieses Ereignis nichts definiert.
gefolgt von der gleichen Fehlermeldung bezogen auf das Ereignis onMouseMove (das ich ebenso nirgends nutze).
Sobald ich in das Grid klicke, erhalte ich weitere Fehlermeldungen zu irgenwelchen Ereignissen, die ich alle nicht verwende.
Wenn die Fehlermeldungen "durch" sind, funktioniert das Grid wie erwartet (es soll nur Daten in sortierbarer Form anzeigen)
Auf meinen Entwicklungsrechner funktioniert das Grid ohne irgendwelche Probleme. Auf dem Problemrechner ist die Komponente freigeschaltet und zusätzlich manuell unter Windows registriert worden.
Kennt irgendjemand dieses Problem?
mfg
hjt
With Grid1
' autom. Neuzeichnen ausschalten
.LockUpdate True
' Recordset-Kopie erstellen
.CreateClone = True
' Recordset zuweisen
.Clear True
Set .Recordset = rsTeilnehmer
' Spaltenbreiten festlegen
.Columns("P_ID").Width = 0
.Columns("P_ID").Visible = False
.Columns("T_ID").Width = 0
.Columns("T_ID").Visible = False
.Columns("T_Nr").Width = 0
.Columns("T_Nr").Visible = False
.Columns("T_B_ID").Width = 0
.Columns("T_B_ID").Visible = False
.Columns("B_G_ID").Width = 0
.Columns("B_G_ID").Visible = False
.Columns("T_P_ID").Width = 0
.Columns("T_P_ID").Visible = False
.Columns("T_Z_ID").Width = 0
.Columns("T_Z_ID").Visible = False
.Columns("B_ID").Width = 0
.Columns("B_ID").Visible = False
.Columns("B_Nr").Width = 0
.Columns("B_Nr").Visible = False
.Columns("T_BettNr").Width = 0
.Columns("T_BettNr").Visible = False
.Columns("T_Status").Width = 0
.Columns("T_Status").Visible = False
.Columns("T_Storno").Width = 0
.Columns("T_Storno").Visible = False
.Columns("B_R_ID").Width = 0
.Columns("B_R_ID").Visible = False
.Columns("B_Datum").Width = 0
.Columns("B_Datum").Visible = False
.Columns("B_HK_ID").Width = 0
.Columns("B_HK_ID").Visible = False
.Columns("T_NrStr").Caption = "Nr"
.Columns("T_NrStr").Width = 700
.Columns("G_Bezeichnung").Caption = "Firma"
.Columns("P_Nachname").Caption = "Nachname"
.Columns("P_Vorname").Caption = "Vorname"
.Columns("B_VonDatum").Caption = "Von"
.Columns("B_BisDatum").Caption = "Bis"
.Columns("HK_KurzBez").Caption = "Kat"
.Columns("HK_KurzBez").Width = 500
.Columns("AnzahlvonBT_ID").Caption = "Anz"
.Columns("AnzahlvonBT_ID").Width = 500
' zuletzt gespeicherte Spaltenbreiten wiederherstellen
.ReadColumnWidth "MyApplication", "Grid1", "ColWidths"
' autom. Sortierung aktivieren
.AutoSort = True
' nach Feld "Name" sortieren
.DoSort "P_Nachname"
' Mehrfachselektion zulassen
.AllowMultiSelect = True
' interaktives Hinzufügen, Ändern und Löschen ermöglichen
.AllowEdit = True
.AutoUpdate = True
.AllowDelete = True
' interaktives Ändern der Spaltenbreiten zulassen
.AllowColumnSizing = True
' Drag & Drop von Spalten zulassen
.AllowColumnReorder = True
' autom. Neuzeichnen einschalten
.LockUpdate False
.Refresh
' 1. Zeile selektieren
.Row = 1
' ursprüngliches Recordset zerstören
rsTeilnehmer.Close
Set rsTeilnehmer = Nothing
End With | |
 | 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 |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere 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.
