大家好: delphi的clientdataset定位查詢Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions),其中keyvalues能否動態賦值,如keyvalues=VarArrayOf(['A','B']);中括號的字符和位數是可變的

hi,huangbh57: 可以如下: A:='AAA'; B:='BBB'; keyvalues=VarArrayOf([A,B]); // 補充說明:VarArrayOf([A,B])裡的陣列個數需與你的KeyFields參數搭配 發表人 - change.jian 於 2004/10/12 16:17:28

locate的KeyFields:='字段1;字段2;字段3;...',locate的KeyValues也能對應字段相應的變化

這樣就要自己寫程式了,如下:    

procedure TfrmEditAncester.ToolButtonQueryClick(Sender: TObject);
var
  KeyFields:string;
  KeyValue:Variant;
  i:Integer;
  FcdTemp:TClientDataSet;
begin
  FcdTemp:=TClientDataSet.Create(Self);
  try
    //.....把要locate的欄位及內容放在FcdTemp裡
    if not FcdTemp.IsEmpty then
    begin
      KeyValue:=VarArrayCreate([0, FcdTemp.FieldCount-1], varVariant);
      KeyFields:='';
      for i:=0 to FcdTemp.FieldCount-1 do
      begin
        if i=0 then
          KeyFields:=FcdTemp.Fields[i].FieldName
        else
          KeyFields:=KeyFields ';' FcdTemp.Fields[i].FieldName;
        KeyValue[i]:=FcdTemp.Fields[i].Value;
      end;
      ClientDataSet1.Locate(KeyFields,KeyValue,[]);
    end;
  finally
    FcdTemp.Free;
  end;
end;

就如KeyFields的變量s1:=字段1 ';' 字段2 ';' 字段3,已知字段1:='A';字段2:='B';字段3:='C';KeyValues的變量s2,就象字符串一樣賦值,如s2:='[' 'A' 不知道,而不是keyvalues:=['A','B','C'],查詢為clientdataset.locate(s1,VarArrayOf(s2),[])

已解決,多謝各位