怎样给Clientdataset增加一个ftlookup类型的TStringField

Question

怎样给Clientdataset增加一个ftlookup类型的TStringField,用代码实现。

Answer 1

直接右击clientdataset1选择fieldeditor-add all field，fieldeditor-new field
name=ff type=string,fieldtype=lookup,设置下面的三个参数

Answer 2

谢谢 yesxwl() ,但我的问题是不想象你说的那样做，而是想用代码来实现

Answer 3

动态增加字段方法：以下例子可以动态增加两个字段
--------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADS do
  begin
    with FieldDefs.AddFieldDef do
    begin
      Name :='test';
      DataType :=ftString;
      Size := 10;
    end;
    with FieldDefs.AddFieldDef do
    begin
      Name :='test1';
      DataType :=ftString;
      Size := 10;
    end;
    CreateDataSet;
  end;
  ADS.FieldByName('test').AsString :='1123132';
  ADS.FieldByName('test1').AsString :='dsfdsflk';  sTmp :=ADS.FieldByName('test').AsString;
  sTmp :=sTmp + ADS.FieldByName('test1').AsString;
  ADS.Close;
  Edit1.Text :=sTmp;
end;