如何通过程序给TQuery增加一个CalcFields

eaglet 2004-04-12 06:47:06
目前一般的方法是双击TQuery控件,new field 然后选Calculate
我要问的是如何在程序运行时动态增加一个 Calculate 字段

...全文
83 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dickeybird888 2004-04-12
procedure TForm1.Button1Click(Sender: TObject);
var
T: TStringField;
begin
query1.Close;
T := TStringField.Create(Self);
T.FieldName := 'SS';
T.Name := 'cdtable' + T.FieldName;
T.FieldKind:= fkCalculated;
T.Index := ('计算字段的位置');
T.DataSet := query1;
query1.FieldDefs.UpDate;
query1.Open;
end;
  • 打赏
  • 举报
回复
hwz_119 2004-04-12
还是同意楼上
  • 打赏
  • 举报
回复
yurenjf 2004-04-12
建立一个TStringField的字段,如:
var
sf:TStringField;
begin
sf.FieldKind = fkCalculated;
Calculated = True;
yourquery.Field.Add(sf);
end;
  • 打赏
  • 举报
回复
发帖
Delphi
加入

5094

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
申请成为版主
帖子事件
创建了帖子
2004-04-12 06:47
社区公告
暂无公告