var
? i: Integer;
begin
? //ADOQuery已打開(kāi)
?? //在數(shù)據(jù)集打開(kāi)的情況下新增加一個(gè)字段
? with Self.ADOQuery1 do
? begin
??? TDataSetDesigner.Create(Self.ADOQuery1);
??? try
????? Designer.BeginDesign;
????? //Keep Old Field
????? //保留舊的字段
????? Designer.DataSet.Fields.Clear;
????? for i := 0 to FieldDefList.Count - 1 do
????? begin
??????? with FieldDefList.FieldDefs[i].CreateField(Self) do
??????? begin
????????? DisplayLabel := IntToStr(i);
??????? end;
????? end;

????? //Add New Field
????? //增加新的字段
????? with DB.DefaultFieldClasses[TFieldType(2)].Create(Self) do
????? begin
??????? FieldKind := TFieldKind(1);
??????? FieldName := 'FieldName' + IntToStr(i + 1);
??????? Name := 'FieldName1' + IntToStr(i + 1);
??????? DataSet := Self.ADOQuery1;
????? end;
????? //用于做后續(xù)增加字段的標(biāo)志
????? DesignerData := 'Design';
??? finally
????? Designer.EndDesign;
????? Designer.Free;
????? Self.RefreshListBox;
??? end;
? end;
end;

轉(zhuǎn)載于:https://www.cnblogs.com/djcsch2001/archive/2010/09/02/1816436.html

總結(jié)

以上是生活随笔為你收集整理的动态生成lookup字段的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。