vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 21.09.07 12:20

Vielen Dank,

nach minimaler Änderung *** des Codes hat es auch geklappt.

So letzte Frage in September wäre

Gibt es ein Befehl auf eine bestimmte Zelle zu Springen und diese in Editiermodus zu öffnen.

Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
' Tasten abfragen
    With Grid1
        If KeyCode = vbKeyTab Then
            ' In Zeile 2 und Zeile 7, 13. Spalte überspringen
            If .Row = 2 Or .Row = 7 Then
                If (.Col = 12 And Shift = 0) Or (.Col = 14 And Shift = 1) Then
                    ' Zelle für Editieren sperren
                    .Columns(13).LockEdit = True
                Else
                    .Columns(13).LockEdit = False
                End If
            Else
                .Columns(13).LockEdit = False ' *** neu hinzugefügt
            End If
        End If
    End With
End Sub
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 20.09.07 12:01

Hallo Dieter ,

danke für den Tipp von gestern.

Ich brauche noch die Funktion eine bestimmte Zelle zu überspringen.
Wenn ich im Editermodus mit der Tab Taste auf die Zelle komme es einfach übersprungen werden.
Mit der Maus soll diese Zelle nicht mehr Editierbar sein.

LG aus Köln
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 20.09.07 12:36

Hierzu einfach die LockEdit-Eigenschaft des betroffenen Columns-Objekts auf TRUE setzen.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 20.09.07 13:03

Aber ich will eine bestimmte Zelle und nicht die kopmlette Spalte überspringen.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 20.09.07 14:08

Anhand welcher Kriterien wird entschienden, wann eine bestimmte Zelle editiert werden darf und wann nicht?`

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 20.09.07 14:27

Zellennummer zB.

Zeile / Spalte

1,1 Editierbar
2,1 nicht Ediertierbar
3,1 Editierbar
4,1 Editierbar
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 20.09.07 14:55

Private Sub Grid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, bCancel As Boolean)
  ' Zeile 2, Spalte 1 nicht editierbar
  If nRow = 2 And nCol = 1 Then bCancel = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 20.09.07 15:12

Soweit habe ich es auch geschafft gehabt.
Nur Springt es raus . Es soll nur die eine Zelle überspringen und in die nächste Zelle gesprungen werden
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 20.09.07 15:17

Kannst Du mir mal eben Dein Projekt oder ein lauffähiges Beispielprojekt zuschicken?
Dann würde ich mir das mal genauer anschauen.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 20.09.07 15:27

Nichts lieber als das ????
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 20.09.07 15:48

Ich habe das mit dem bCancel=True ausprobiert.
Jetzt bräuchte ich nur nich ein Befehl womit ich auf eine bestimmte Zelle Springe und diese im Editiermodus öffne. Dann hätte ich es geschafft.

Siehe Bild

http://home.arcor.de/raci//sevBeispiel.jpg
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 21.09.07 09:13

Hallo Dieter,

reicht dir die Beschreibung oder willst du noch das Programm ????
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 21.09.07 09:19

Das Programm wäre nicht schlecht, da ich das dann eben mal schnell testen könnte.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 21.09.07 10:39

Hier der Sample,


http://home.arcor.de/raci//sample.zip
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 21.09.07 10:52

Besten Dank.
Dürfe ich Dich noch bitten mir Deine Kundennummer zu verraten?

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: raci
Datum: 21.09.07 10:55

Kd-Nummer : 05894
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 21.09.07 11:16

Besten Dank.

Hier der Code, damit in Zeile 2 und Zeile 7 die 13. Spalte beim Editieren übersprungen wird:
Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  ' Tasten abfragen
  With Grid1
    If KeyCode = vbKeyTab Then
      ' In Zeile 2 und Zeile 7, 13. Spalte überspringen
      If .Row = 2 Or .Row = 7 Then
        If (.Col = 12 And Shift = 0) Or (.Col = 14 And Shift = 1) Then
          ' Zelle für Editieren sperren
          .Columns(13).LockEdit = True
        Else
          .Columns(13).LockEdit = False
        End If
      End If
    End If    
  End With
End Sub
Private Sub Grid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, bCancel As Boolean)
  ' Spalte 13 in Zeile 2 und Zeile 7 nicht editieren!
  If (nRow = 2 Or nRow = 7) And (nCol = 13) Then
    bCancel = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDatagrid2 Listmode Zelle überspringen 
Autor: ModeratorDieter (Moderator)
Datum: 21.09.07 12:27

Der Befehl lautet:
Grid1.DoEdit Zeile, Spalte

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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übersichtSuchen 

nach obenzurück
 
   

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