請教各位先進： 我想在Run-Time時, 經由user選定來改變TQuery.DataSource 的值(也就是原本是Master-Detal的型態變成獨立TQuery)。但在執行時發現，若程式一開始run 時，指定的TQuery.DataSource 沒問題，但接著應USER需求，要更改TQuery.DataSource 就會出現 'Circular datalinks are not allowed' 的錯誤訊息！不知是否在TQuery.DataSource 指定後就不能被更改？或有其他方法？

可能是這種情形: Query1.DataSource := Query2; Query2.DataSource := Query1; 於是就造成 Circular datalinks 了.    --- 每個人都是一本書

hi, hangar: 我改變的是TQuery裡的DataSource，但我不是同時間指定，我原本的用意是寫在一個查詢程式裡給 user 使用，Query1 is master Query, Query2 is Detail Query 在正常情況下是在Query 1 裡指定 nil, 但我想user 有反查資料的需求，所以如果 user 要從Query2查Query1的資料時，我將把Query1.DataSource 改為 DataSource2。資料在 RUN 時，若我先查正常情況，再反查資料，就會出現上述錯誤訊息。不知是否有方法可能我在 RUN-TIME時改變 TQuery.DataSource 的值！

1. 先關掉兩個 Query 2. 設好Datasources, 同一時間只能一個 Query 的 DataSources 指向另一個, 另一個的 DataSources 要設 nil 3. Open 現在的 Master (DataSources = nil 那個) 4. Open 現在的 Detail 這樣應不會出現 'Circular datalinks are not allowed'

Hi, Justmade : 是的，我的確有關閉Query, 但還是不行！以下為我程式大致內容： procedure TMainForm.BitBtn2Click(Sender: TObject); begin Query1.Close; Query2.Close; with Query1 do begin if RB1_1.Checked then //正常查詢 begin DataSource := nil; end else begin DataSource := DataSource2; end; end; With Query2 do begin if RB1_2.Checked then //反向查詢 begin Datasource := nil; end else begin DataSource := DataSource1; end; end; if RB1_1.Checked then begin Query1.Open; Query2.Open; end else begin Query2.Open; Query1.Open; end; end;

procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
  Query1.Close; 
  Query2.Close;
// 加這兩行呢？

  Query1.DataSource := nil;
  Query2.DataSource := nil; 

  with Query1 do
  begin
    if RB1_1.Checked then //正常查詢
    begin
      DataSource := nil;
    end else begin
     DataSource := DataSource2;
    end;
  end;
  With Query2 do
  begin
    if RB1_2.Checked then //反向查詢
    begin
      Datasource := nil;
    end else begin
      DataSource := DataSource1;
    end;
  end;
  if RB1_1.Checked then
  begin
    Query1.Open;
    Query2.Open;
  end else begin
    Query2.Open;
    Query1.Open;
  end;
end;

--- 每個人都是一本書

Hi, Hangar:    是的，不會出現錯誤訊息了，真是太感謝各位了！