各位大大好: 我有 Master: AdoQuery1 (select * from AFile) -> DataSource1,  Detail: AdoQuery2 (select * from BFile where Code = :Code) -> DataSource2 將Adoquery2 的 DataSource 設 DataSource1    AdoQuery1.DisableControl; AdoQuery1.First; while not AdoQuery1.Eof do begin   為什麼Master DisableControl 後Detail 就不捲動??? AdoQuery2.First; while not AdoQuery2.Eof do begin ........ AdoQuery2.Next; end; AdoQuery1.Next; end; AdoQuery1.First; AdoQuery1.EnableControl; 請問有什麼方法可以讓Detail捲動呢???

Hi s5633你好: 參考Delphi Help < class="code">Call DisableControls prior to iterating through a large number of records in the dataset to prevent data-aware controls from updating every time the active record changes. Disabling controls prevents flicker and speeds performance because data does not need to be written to the display. DisableControl將不會觸發很多事件, 包含你所擁有的Detail Data這也就是為什麼DisableControl會效率加快的原因 我不是高手, 高手是正在銀幕前微笑的人. 發表人 - miles 於 2005/01/24 18:28:31

------


我不是高手, 高手是正在銀幕前微笑的人.

為什麼Master DisableControl 後Detail 就不捲動??? --> datasource1.dataset 連到 master adoquery, 連結已凍結, adoquery2.datasource-->連到 datasource1 就跟著不動. 請問有什麼方法可以讓Detail捲動呢??? 如果不要 disablecontrol 就會一起捲動 ,不過若 adoquery1有被其他 dbgrid 連結,畫面可能會跟著閃爍.

將 Q2.DataSource 清掉, 把 Q2 與 Q1 之間關聯用程式處理. 程式大略修改如下:

procedure TForm1.qy_mAfterRefresh(DataSet: TDataSet);
begin
  qy_d.Close;
  qy_d.Open;
end;    procedure TForm1.qy_dBeforeOpen(DataSet: TDataSet);
begin
  qy_d.Parameters.ParamByName('Code').AsString :=
    qy_m.FieldByName('Code').AsString;
end;

我是雪龍

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/