RecNo gibt ergibt immer -1

[HolgerCW]

Hallo zusammen,

ich versuche im MouseUp Ereignis die Zeilennummer zu speichern:

var

Grd: TDBGrid;
FirstPosMouse: Integer;

begin
FirstPosMouse := Grd.DataSource.DataSet.RecNo;

RecNo liefert aber immer -1 ? Warum ? Was braucht Ihr noch für Infos ?

Gruss

Holger

Folgenden Code will ich zum laufen bringen: (Beim DBGrid durch Shift+Mouseklick einen Bereich markieren)

Code:

procedure TFormT.DBG_UWMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  LastPos: Integer;
  TempBookmark: Integer;
  Grd: TDBGrid;
begin


 Grd := TDBGrid(Sender);

  if (Shift = [ssShift]) and (Button = mbLeft) and (dgMultiSelect in Grd .Options) and (FirstPosMouse > 0) then
  begin

   LastPos := Grd.DataSource.DataSet.RecNo;

   with Grd.DataSource.DataSet do
   begin

    DisableControls;
    Grd.DataSource.DataSet.MoveBy(FirstPosMouse - LastPos);

    repeat

     Grd.SelectedRows.CurrentRowSelected := True;
     if (FirstPosMouse < LastPos) then
      Next
     else
      Prior;

     TempBookmark := Grd.DataSource.DataSet.RecNo;

    until (TempBookmark = LastPos);

     EnableControls;

    end;

  end
  else

  FirstPosMouse := Grd.DataSource.DataSet.RecNo;
  
end;

[Uwe Raabe]

Unterstützt denn das verwendete DataSet überhaupt RecNo?

Data.DB.TDataSet.RecNo

Zitat:

As implemented in TDataSet, the value of RecNo is always -1.
...
RecNo defines a property for derived datasets that support record numbers.

[HolgerCW]

Hallo,

das habe ich mir auch schon irgendwie gedacht.

Ich nutze TDataSource und daran TQuery

Gibt es eine andere Möglichkeit um den Code zum laufen zu bekommen ?

Gruss

Holger

[Jasocul]

Zitat von HolgerCW:

Gibt es eine andere Möglichkeit um den Code zum laufen zu bekommen ?

Indem du echte Bookmarks verwendest. Es gibt den Typ TBookmark. Der Umgang damit ist sehr einfach. Da sollte dir ein Blick in die Delphi-Hilfe genügen.
Hier ein Beispiel:
http://docwiki.embarcadero.com/CodeE...kmark_(Delphi)
Da wird zwar mit with gearbeitet, aber das kann man ja mal ignorieren.
Im Beispiel fehlt allerdings noch ein FreeBookmark.

[hoika]

Hallo,

Zitat:

Ich nutze TDataSource und daran TQuery

Und woran hängt die TQuery?
Das ist das entscheidende Detail.

[Jasocul]

Was hoika meint, ist die Frage nach der Datenbank, die du verwendest.

Du bekommst von einigen Datenbanken die Information RecNo und RecordCount nicht korrekt geliefert. Teilweise gar nicht. Daher auch der Wert -1.

Man kann sich mit Tricks behelfen (Calculated Fields) aber das sind auch nur krücken. Spätestens, wenn der Anwender die Sortierung verändert oder Filter setzt, geht das nach hinten los.

Kurz gesagt, auf die Info RecNo und RecordCount kannst du dich nicht verlassen, außer du nutzt eine Datenbank, von der du weißt, dass es immer funktioniert. Bei sogenannten Desktop-Datenbanken (z.B. Paradox) ist das in der Regel so.

Es gibt allerdings TDataSets, die das dann auch bei den "problematischen" Datenbanken unterstützen. Aber wenn du auf Nummer sicher gehen willst, wähle einen anderen Weg für die Lösung deines Problems.

[HolgerCW]

Ich verwende die Datenbank Oracle und an der stelle noch die BDE.

TBooksmark würde also gehen ? Kann mich da jemand etwas anstupsen und mir helfen wie ich den Codes anstatt Recno's in Bookmarks ändere, oder anders ?

Im Endeffekt brauche ich eine Lösung für Mausklick+Shift im DBGrid Datensätze markieren.

Gruss

Holger