var
? i: Integer;
begin
? //ADOQuery已打開
?? //在數據集打開的情況下新增加一個字段
? 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;
????? //用于做后續增加字段的標志
????? DesignerData := 'Design';
??? finally
????? Designer.EndDesign;
????? Designer.Free;
????? Self.RefreshListBox;
??? end;
? end;
end;

轉載于:https://www.cnblogs.com/djcsch2001/archive/2010/09/02/1816436.html

總結

以上是生活随笔為你收集整理的动态生成lookup字段的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。