比如,我有一个adotable中有1000条资料,我想让dbgrid中的第一条直接显示序号栏位(实体栏位)为301时的状态?

ps: delphi7 mssql2000

這是延續上一個問題的另依一個問題 QQ

我試了一下,這樣寫應該是你要的狀況,

[code delphi]
var
Form1: TForm1;
oldX,oldY,deffCount:integer;
p:Pointer;
implementation
{$R *.dfm}
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
oldX := X;
oldY := Y;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
//利用點選的時候紀錄最後那一筆的位置
p := ADOTable1.GetBookmark;

// 這個12是因為我dbgrid 一頁顯示23條, 我要抓游標離中間位置差幾行
// 如果總共22行就用11
deffCount := (DBGrid1.MouseCoord(oldX,oldY).Y) - 12 ;

end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
// 這個 function 模擬測試選到剛剛最後那一筆

ADOTable1.Close;
ADOTable1.Open;
// 用GotoBookmark 先滾到最後選的那筆
ADOTable1.GotoBookmark(p);

// 但是這樣還有問題,因為GotoBookmark會把那筆放到grid的中間
// 下面的動作就是想辦法把整個資料顯示往上或往下滾幾筆,滾到跟剛剛同樣位置

for i := 0 to Integer( ABS(deffCount)) do
begin
if deffCount < 0 then
ADOTable1.Next
else
ADOTable1.Prior;
end;
p := ADOTable1.GetBookmark;
ADOTable1.GotoBookmark(p);
for i := 0 to Integer( ABS(deffCount)) do
begin
if deffCount > 0 then
ADOTable1.Next
else
ADOTable1.Prior;
end;
end;
[/code]

------
額有朝天骨,眼中有靈光

如果你資料序號會跳號的話, 也可以先locate 到301 然後再呼叫
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i := DBGrid1.MouseCoord( 1, DBGrid1.ClientRect.Bottom -DBGrid1.Canvas.TextHeight('A') ).Y ; // 取出grid中有幾列
ADOTable1.MoveBy( i - 1 );
end;


===================引 用 luowy651 文 章===================
比如,我有一个adotable中有1000条资料,我想让dbgrid中的第一条直接显示序号栏位(实体栏位)为301时的状态?

ps: delphi7 mssql2000

------
額有朝天骨,眼中有靈光

小傑克大大,您好,我测试了一下,不知为何,dbgrid的第一条资料的位置总会相差一条,比如第一条明明应该显示301的,却显示成了302或者300

我只是提供一些想法而已,  沒有完整的程式碼和測試

應該用GetBookmark , moveby , MouseCrood 這幾個組合配合一些創意可以做的出來

------
額有朝天骨,眼中有靈光