急！！！请问怎样使数据集移动，但DBGRID控件显示不动？解决了给50分

[chengzhongshi]

急！！！一个关于怎样使数据集移动，但DBGRID控件显示不动？解决了给50分

[e_shark]

dbgrid.datasource.dataset.dis...
dbgrid.datasource.dataset.enable...

[afei78223]

首先定义一个TScrollEvents类
type TScrollEvents = class
BeforeScroll_Event: TDataSetNotifyEvent;
AfterScroll_Event: TDataSetNotifyEvent;
AutoCalcFields_Property: Boolean;
end;

//此过程用来使DataSet的BeforeScroll 和AfterScroll 事件为空
procedure DisableDependencies(DataSet: TDataSet; var ScrollEvents: TScrollEvents);
begin
with DataSet do
begin
DisableControls;
ScrollEvents := TScrollEvents.Create();
with ScrollEvents do
begin
BeforeScroll_Event := BeforeScroll;
AfterScroll_Event := AfterScroll;
AutoCalcFields_Property := AutoCalcFields;
BeforeScroll := nil;
AfterScroll := nil;
AutoCalcFields := False;
end;
end;
end;

//此过程用来恢复DataSet的BeforeScroll 和AfterScroll 事件
procedure EnableDependencies(DataSet: TDataSet; ScrollEvents: TScrollEvents);
begin
with DataSet do
begin
EnableControls;
with ScrollEvents do
begin
BeforeScroll := BeforeScroll_Event;
AfterScroll := AfterScroll_Event;
AutoCalcFields := AutoCalcFields_Property;
end;
end;
end;

//使用的例子过程
procedure MoveDataSet(DataSet:TQuery);
var
ScrollEvents: TScrollEvents;
SavePlace: TBookmark;
begin
DisableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);
SavePlace := DBGrid.DataSource.DataSet.GetBookmark;
with DataSet do
begin
While NOT EOF
Next;
end;
DBGrid.DataSource.DataSet.GotoBookmark(SavePlace); //到书签记录的地方
DBGrid.DataSource.DataSet.FreeBookmark(SavePlace);
EnableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);
end;

[afei78223]

上面的While循环漏掉了do
While NOT EOF do

[hiflower]

DBGrid.DataSource.DataSet.DisableControls;

DBGrid.DataSource.DataSet.EnableControls;

[DongXF]

同意樓上

[zhoutian618]

同意楼上几位的方法，
你试试看能不能解决你的问题，
我总感觉你的问题描述得还不是很清楚。

如果你的意思是说在运行某按钮的事件中不能移动数据的情况的话：
那么用以下的方法也是可以的。
这样连它的滚动条都不会动一下的。

DBGrid1.DataSource.DataSet:=nil;
try
//你的处理
fially
DBGrid1.DataSource.DataSet:=Query1;
end;