如何通过程序给TQuery增加一个CalcFields 目前一般的方法是双击TQuery控件,new field 然后选Calculate我要问的是如何在程序运行时动态增加一个 Calculate 字段 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 建立一个TStringField的字段,如:var sf:TStringField;begin sf.FieldKind = fkCalculated; Calculated = True; yourquery.Field.Add(sf);end; 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; 求一个Webservice 操作数据库的例子,增删改,写一个就行。 CRC-CNITT的校验是什么校验来的? 关于delphi主从表的删除问题 cxgrid 如何给cell的item赋值? 如保知cxGrid 在 filter 狀態 请高手帮助,很短的代码为何无法编译,抱错信息(undeclare identfier:regNo)??? 邮件收发程序终于写完了,放分啦 有请tigerhohoo(老虎不吃人) 相对路径问题 win7 64位下部分机器用管道无法获取返回信息 如何通过程序给TQuery增加一个CalcFields 怎样从数据库表中取Clob字段数据?在线等!!!!!
var
sf:TStringField;
begin
sf.FieldKind = fkCalculated;
Calculated = True;
yourquery.Field.Add(sf);
end;
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;