全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1668
推到 Plurk!
推到 Facebook!

DBGrid 的游標位置保留

 
yu168
一般會員


發表:29
回覆:27
積分:16
註冊:2002-06-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-07-27 20:59:09 IP:59.124.xxx.xxx 未訂閱

小弟有三個關於 DBGrid 的問題想請教

1. DBGrid 所連的ADOTable, 每次close再open 時游標都會跳回第一行, 要如何設定才能使游標留在目前所在的行數??

2.如果跳到下頁後, ADOTable close再open 時 , 總是跟上述情形一樣跳回第一頁的第一行, 要如何設定才能使游標留在目前所在的頁數??

3.有沒有辦法使 DBGrid refresh 時順暢些, 不要閃爍的那麼的嚴重???

先謝過眾高手了!!

Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-07-28 08:52:49 IP:210.65.xxx.xxx 未訂閱

procedure TForm1.Button2Click(Sender: TObject);
var
CurrentRec : Integer;
begin
if ADOTable1.Active then
CurrentRec := ADOTable1.RecNo
else
CurrentRec := 0;
ADOTable1.DisableControls;
ADOTable1.Close;
ADOTable1.Open;
ADOTable1.EnableControls;
Edit1.Text := DatetimeToStr(Now);
if CurrentRec > 1 then
begin
ADOTable1.First;
ADOTable1.MoveBy(CurrentRec - 1)
end;
end;

Fishman

------
Fishman
yu168
一般會員


發表:29
回覆:27
積分:16
註冊:2002-06-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-07-28 09:31:37 IP:59.124.xxx.xxx 未訂閱

太好了! 經您這麼一點我梢梢懂了, 原來只要先記住位置, 再重新move 就對了. 感謝感謝

系統時間:2024-04-19 18:44:05
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!