想請問以下Locate的問題 1:locate是qy_tmp1 'CUSTMER' 去尋找RFMNO嗎? orRFMNO去尋找qy_tmp1 'CUSTMER' 2: 若是locate是qy_tmp1 'CUSTMER' 去尋找RFMNO.如何改以下程式 with Dcd do begin First; try while not qy_tmp1.eof do begin if qy_tmp1.Locate('RFMNO', VarArrayOf([qy_tmp1 'CUSTMER']]), [loCaseInsensitive]) then begin cd1.Append; cd1'CUSTMER;SALEITM;STARTDT']:=qy_tmp1'CUSTMER;SALEITMSTARTDT']; break; end ELSE begin qy_tmp1.next; end; end; finally end; end; end;

其實我看不太懂妳的程式到底在做什麼... 不過我可以說說Locate的用法. Locate有三個參數 第一個參數是要查詢的欄位名稱 第二個參數是要查詢的值 第三個參數是要查詢的方法. 妳可以參考這篇文章 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32485

引言:

想請問以下Locate的問題
1:locate是qy_tmp1 'CUSTMER' 去尋找RFMNO嗎? or RFMNO去尋找qy_tmp1 'CUSTMER'     2: 若是locate是qy_tmp1 'CUSTMER' 去尋找RFMNO.如何改以下程式
with  Dcd do
 begin
     First;
     try
       while not qy_tmp1.eof do
        begin
          //if qy_tmp1.Locate('RFMNO', VarArrayOf([qy_tmp1 'CUSTMER']]), [loCaseInsensitive]) then
          if qy_tmp1.Locate('RFMNO', qy_tmp1.FieldByName('CUSTMER').Value, [loCaseInsensitive]) then
            begin
              cd1.Append;      
              //cd1'CUSTMER;SALEITM;STARTDT']:=qy_tmp1'CUSTMER;SALEITM;STARTDT'];
              Cd1.FieldByname('CUSTMER').Value:=qy_tmp1.FieldByname('CUSTMER').Value;   
              Cd1.FieldByname('SALEITM').Value:=qy_tmp1.FieldByname('SALEITM').Value;   
              Cd1.FieldByname('STARTDT').Value:=qy_tmp1.FieldByname('STARTDT').Value;   
              break;
            end
          else
            begin
              qy_tmp1.next;
            end;
        end;
     finally
     end;
  end;
end;    

依妳程式修改如上,試試看

剛剛又仔細的看了一下 妳試圖在while迴圈對qy_tmp1作動作 看樣子好像是想要從頭處理每一筆資料. 但是妳又在while迴圈當中對qy_tmp1作Locate 如果Locate有找到資料,會移動當前的指標到符合的資料筆 這樣的話就破壞了while迴圈了 可能會導致無窮的回圈喔~~~要注意