在AfterOpen重新计算一个字段,大致如下:
procedure TFrmGridForExport.qryAfterOpen(DataSet: TDataSet);
begin
qry.First;
while not qry.Eof do
begin
qry.Edit;
qry.FieldByName('en_usable_t1').AsFloat := 1000;
qry.Post;
qry.Next;
end;
end;在另外一个TADOQuery中添加了一个fkInternalCalc字段,在OnCalcFields事件中计算:
procedure TFrmGridForExport.qryAnalyesCalcFields(DataSet: TDataSet);
var
sPoolValue: string;
begin
DataSet.FieldByName('en_power_lowlimite').AsString := '0.00';
end;结果是第一个query中'en_usable_t1字段的值并不是1000,还是之前查询出来的值;
第二个query查询的时候提示找不到en_power_lowlimite这个字段,
以前我都是用Tquery的,按以上的方法写运行都是正常的,现在由于需要改成了ado方式,代码也是差不多的,
结果却成了这个样子,是怎么回事呢,是不是用TADOQuery的时候还要设置什么呢?
procedure TFrmGridForExport.qryAfterOpen(DataSet: TDataSet);
begin
qry.First;
while not qry.Eof do
begin
qry.Edit;
qry.FieldByName('en_usable_t1').AsFloat := 1000;
qry.Post;
qry.Next;
end;
end;在另外一个TADOQuery中添加了一个fkInternalCalc字段,在OnCalcFields事件中计算:
procedure TFrmGridForExport.qryAnalyesCalcFields(DataSet: TDataSet);
var
sPoolValue: string;
begin
DataSet.FieldByName('en_power_lowlimite').AsString := '0.00';
end;结果是第一个query中'en_usable_t1字段的值并不是1000,还是之前查询出来的值;
第二个query查询的时候提示找不到en_power_lowlimite这个字段,
以前我都是用Tquery的,按以上的方法写运行都是正常的,现在由于需要改成了ado方式,代码也是差不多的,
结果却成了这个样子,是怎么回事呢,是不是用TADOQuery的时候还要设置什么呢?
解决方案 »
- 怎样将一个excel中的第二行至最后一行,复制到另一个excel中的第二行至最后一行
- 光阴效果图片的制作
- 如何将 listbox 里的数字进行排序。
- 一个关于Intraweb的简单问题
- ShellListView选择文件出错??
- SQLServer 的问题
- 我的程序把数据集另存为Excel时,导出43条的数据竟要30秒,请各位帮俺出出主意,如何提高导出效率?
- 图标提取器1.0源代码发布,http://icnw.myrice.com或http://icnwgreen.go.163.com !
- 如何在delphi中控制条码打印机?
- 提取字符问题(急,急)
- 问一下控件下级调用上级属性的问题。
- 生成参数SQL . 顺便散分.
就是设了个connection属性啊