目的是要用報表印出, 假如我想每頁印出十筆, 我會希望grid上顯示的是該十筆資料, 那要如何得知目前grid畫面上的第一筆和畫面上的最後一筆?

------
努力會更接近成功

編輯記錄

在一開始取值的時候就用變數紀錄下來~
var
first,last:string;


ADO.first;
first:=ADO.FieldByName('欄位').asstring;
ADO.last;
last:=ADO.FieldByName('欄位').asstring;
ADO.first;

------
======================
昏睡~
不昏睡~
不由昏睡~

前輩，您誤解我的意思了, 是指當使用者先按下pgdn，指標指在第廿筆，然後使用者再以上下鍵移動，但此時畫面上顯示的筆數是不會變的，此案可能要用ado物件的page或者clientdataset來解了。

------
努力會更接近成功

相關的問題我以前也問過一次!!

在DBGrid之Mouseup可以如下取得, mouse所點是第幾個row(DBGrid之Row而不是Record no), 不知是否你要的


procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var c:TGridCoord;
begin
c:=DBGrid1.MouseCoord(x,y);
showmessage('row no is' inttostr(c.y));
end;

c.x為column no, c.y 為Row no

BY CCCHEN

------
======================
昏睡~
不昏睡~
不由昏睡~

若每次只顯示十筆資料，DBGRID裡面就是等於要印的十筆資料，為何還要得知第一筆及末筆資料呢？

===================引 用 pceyes 文 章===================
目的是要用報表印出, 假如我想每頁印出十筆, 我會希望grid上顯示的是該十筆資料, 那要如何得知目前grid畫面上的第一筆和畫面上的最後一筆?

提示：
1.在 DBGrid 上 按下 Ctrl PageUp 可以移到目前 DBGrid 上顯示的第一筆資料上
2.在 DBGrid 上 按下 Ctrl PageDown 可以移到目前 DBGrid 上顯示的最後一筆資料上
如此即可得到目前顯示的資料區間

------
Fishman

Fishman 先生所回的已較接近要求，因為要達到所視即所得的目的, 因此如果先bookmark目前所在筆後再由程式來按cntrl-pgup或cntrl-pgdn分別取得畫面上的第一筆及畫面最後一筆,得再回到原來的目前所在筆,再由報表自該畫面第一筆印至畫面上的最後一筆,即是在下的需求，只是如此程式的行為將很笨，也會很怪。不好意思、表達能力太差，令許多前輩搞不懂在下的問題在那裏。

------
努力會更接近成功

你好

可以試試看，因為顯示在DBGRID上面的資料，如果都是十筆，
那可以用qrSelect.RecNo取得目前的筆數，然後再加工取出該筆數的十筆的第一筆。
EX. qrSelect.RecNo = 16 就可以處理出 11以及20。不知道這樣是不是符合你的需求。

------
Pillar Wang

謝謝pillar62 大 大
你的做法，已接近完成了!
但是看了好久才看懂您的例子, (太菜)
表示使用者先按下pgdn又按下donw 6 , qrSelect.RecNo 才會為 16
那請教一下, 如果使用者此時 按下 up 8時，qrSelect.RecNo =9，該筆數的十筆的第一筆應為1以及10
應如何加工取出該筆數的十筆的第一筆及十筆呢?

另unit 要
use qrselect; 嗎?

===================引 用 pillar62 文 章===================
你好

可以試試看，因為顯示在DBGRID上面的資料，如果都是十筆，
那可以用qrSelect.RecNo取得目前的筆數，然後再加工取出該筆數的十筆的第一筆。
EX. qrSelect.RecNo = 16 就可以處理出 11以及20。不知道這樣是不是符合你的需求。

------
努力會更接近成功

<textarea class="vb" rows="10" cols="60" name="code"> .... type TTmpGrid = class(TDBGrid); TForm1 = class(TForm) .... procedure TForm1.Button7Click(Sender: TObject); var x : integer; ST,Ed : Integer; begin with DBGrid1.DataSource.DataSet do begin DisAbleControls; x := TTmpGrid(DBGRid1).Row; MoveBy((x - 1) * -1); ST := DBGrid1.DataSource.DataSet.RecNo;; MoveBy(TTmpGrid(DBGRid1).RowCount - 2); ED := DBGrid1.DataSource.DataSet.RecNo;; MoveBy((TTmpGrid(DBGRid1).RowCount - 1 - x) * -1); EnableControls; ShowMessage(IntToStr(ST) '~' IntToStr(ED)); end; end; </textarea>

------
Fishman

可以了!
大大真是超人，令人不得不佩服，原先要放棄了, 想草草結案，但對qrselect一直試不出來,實在不知那是什麼,
無論如何,分數仍要給fishman大大, 謝謝啦!

===================引 用 Fishman 文 章===================
<textarea class="vb" rows="10" cols="60" name="code">.... type TTmpGrid = class(TDBGrid); TForm1 = class(TForm) .... procedure TForm1.Button7Click(Sender: TObject); var x : integer; ST,Ed : Integer; begin with DBGrid1.DataSource.DataSet do ????begin ???? DisAbleControls; ???? x := TTmpGrid(DBGRid1).Row; ???? MoveBy((x - 1) * -1); ???? ST := DBGrid1.DataSource.DataSet.RecNo;; ???? MoveBy(TTmpGrid(DBGRid1).RowCount - 2); ???? ED := DBGrid1.DataSource.DataSet.RecNo;; ???? MoveBy((TTmpGrid(DBGRid1).RowCount - 1 - x) * -1); ???? EnableControls; ???? ShowMessage(IntToStr(ST) '~' IntToStr(ED)); ????end; end; </textarea>

------
努力會更接近成功

編輯記錄