Dave


Yup, that's how I'd do the selection, but I'd navigate like

AGrid.DataSource.DataSet.GoToBookMark(Pointer(AGrid.SelectedRows[i]));

Can you check that recordcount is the same as selectedrows.count please

Roy Lambert [Team Elevate]

Hi Roy,

Yes the record count is correct and before the loop the select count is correct.
But after the loop the select count is less.
But as I mentioned SelectCount stays the same after the loop if I remove the
order by clause.
Thanks

Roy Lambert <roy.lambert@skynet.co.uk> wrote:

Dave


Yup, that's how I'd do the selection, but I'd navigate like

AGrid.DataSource.DataSet.GoToBookMark(Pointer(AGrid.SelectedRows[i]));

Can you check that recordcount is the same as selectedrows.count please

Roy Lambert [Team Elevate]

Dave


Final question, then I throw my hands up in despair - what happens if you switch to my method of navigation ie

AGrid.DataSource.DataSet.GoToBookMark(Pointer(AGrid.SelectedRows[i]));

Roy Lambert [Team Elevate]

Hi again Roy,

Yep tried your method and the same thing.

I believe if something was wrong with the code, simply taking out the Order By clause
would not fix the problem.

I also merged the data to Firebird and tried it with the order by and and worked fine.
Merged it to DBISAM and no problem.

Thank you very much for trying to help me mate, if I needed the order by I would
be quite in trouble, but thank fully I can get away without it.

Thanks again mate

Dave


I just tried things and I can't get it to "loose" records.

The sql I used was select * from companies order by _fkmarkets - that gives 9305 rows

I also tried select * from companies
where _fkOrgType IN ('ELECTRONIC', 'FMCG', 'FOODPROD')
order by _fkMarkets

which results in 2550 rows and is also fine.

The only other thing I can try is, if you want, to have a look at you code. If you do post it to the binaries.

Roy Lambert [Team Elevate]

procedure TForm1.Button1Click(Sender: TObject);
begin
AGrid.SelectedRows.Clear;
with AGrid.DataSource.DataSet do begin
 DisableControls;
 First;
 try
  while not EOF do begin
   AGrid.SelectedRows.CurrentRowSelected := True;
   Next;
  end;
 finally
  EnableControls;
 end;
end;
label2.caption := inttostr(AGrid.SelectedRows.Count);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
cntr: integer;
begin
cntr := 0;
for i := 0 to AGrid.SelectedRows.Count - 1 do begin
 AGrid.DataSource.DataSet.Bookmark := AGrid.SelectedRows[i];
 inc(cntr);
 AGrid.DataSource.DataSet.Edit;
 AGrid.DataSource.DataSet.FieldByName('_STDCode').AsString := IntToStr(Cntr);
 AGrid.DataSource.DataSet.Post;
end;
label3.Caption := inttostr(cntr);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cpys.open;
label1.caption := inttostr(cpys.RecordCount);
end;

Dave,

<< Yes Tried the Request Sensitive in both states. >>

I understand, but what was the *actual* result set type ?  The query plan or
this property will tell you:

http://www.elevatesoft.com/manual?action=mancompprop&id=edb1&product=d&version=7&comp=TEDBQuery&prop=Sensitive

I need to know this so that I can figure out what is going on.

--
Tim Young
Elevate Software
www.elevatesoft.com

Hi Tim,
I will arrange for you mate.
Thank you


"Tim Young [Elevate Software]" <timyoung@elevatesoft.com> wrote:

Dave,

<< Yes Tried the Request Sensitive in both states. >>

I understand, but what was the *actual* result set type ?  The query plan or
this property will tell you:

http://www.elevatesoft.com/manual?action=mancompprop&id=edb1&product=d&version=7&comp=TEDBQuery&prop=Sensitive

I need to know this so that I can figure out what is going on.

--
Tim Young
Elevate Software
www.elevatesoft.com

Dave,

<< I will arrange for you mate. >>

Thanks very much.

--
Tim Young
Elevate Software
www.elevatesoft.com