Server 端有一支 Server Engine ,Client端藉由迴圈動態傳入單位代號,抓取每一單位的資料,並將資料塞回ClientDataSet作後續的處理,結果發現迴圈跑到第二次以後,不管傳入的參數為何,資料都殘留第一批的資料,無法更新,部分程式如下: for i:=0 to sDiv.Count -1 do begin cdsMain.close; cdsMain.Params[0].Value := strDiv[i] ;//傳入參數抓取資料 cdsMain.ProviderName := 'dspPmatdMain'; cdsMain.open; //無論參數值為何,cdsMain的筆數都一模一樣 end; ~ 煩請協助幫忙 ~

clientdata執行close應該會清空阿,你可以用SQL monitor看看cdsMain.open 時所產生的SQL對不對 永遠追不上技術更新的速度

------
星期一,二...無窮迴圈＠＠

Hi:    

for i:=0 to sDiv.Count -1 do 
    begin
        cdsMain.close;
        cdsMain.ProviderName := 'dspPmatdMain';
        cdsMain.Params[0].Value := strDiv[i] ;//傳入參數抓取資料
        cdsMain.open; //無論參數值為何,cdsMain的筆數都一模一樣
    end;

似乎應該修正如紅色部分，先指定 ProviderName 再傳參數 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

不知以下程式碼是不是你要的 若不是的話，你需要將程式碼範圍放大一點貼上來。    

for i:=0 to sDiv.Count -1 do 
begin
  cdsMain.close;
  cdsMain.Params[0].Value := strDiv[i] ;//傳入參數抓取資料
  cdsMain.ProviderName := 'dspPmatdMain';
  cdsMain.open; //無論參數值為何,cdsMain的筆數都一模一樣
  // 將抓取到的資料修改 程式碼放在此

  cdsMain.Edit;
  cdsMain.FieldByname('XXXXX').AsString :=  'xxxx' ;
  ........
  cdsMain.Post;
  If cdsMain.ChangeCount >0 Then 
    cdsMain.ApplyUpdates(-1);    end;
// 程式到此 永遠只有最後一次取到的資料
// 前面幾次取到的資料已被For迴圈內的cdsMain.Close;關閉了    

發表人 - chance36 於 2004/02/05 20:37:51