起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 347|回复: 15

【搞定】数据字段问题**

[复制链接]
发表于 2007-8-1 19:12:48 | 显示全部楼层 |阅读模式
DataSetWBC.FieldByName ('JELJ').AsFloat:=lQuery.Fields[3].AsFloat  ;

        DataSetWBC.FieldByName ('LJ').AsFloat:=lQuery.Fields[3].AsFloat  ;


"JELJ"是数据字段
"LJ"是计算字段


如果是数据字段的话会自动退出
..而计算字段可以..

什么原因???
回复

使用道具 举报

发表于 2007-8-1 19:14:40 | 显示全部楼层
楼主,他退出报错吗?
回复 支持 反对

使用道具 举报

发表于 2007-8-1 19:27:49 | 显示全部楼层
您用下面代码试一下会不会有问题?
begin
  DataSetBroker1.DataSet.Open;
  DataSetBroker1.DataSet.Edit;
  //DataSetBroker1.DataSet.UpdateRecord;
  DataSetBroker1.DataSet.FieldByName('DJ').AsFloat:=1.1;
  DataSetBroker1.DataSet.FieldByName('JS').AsFloat:=1.2;
  //DataLabel1.Caption:=
end;
回复 支持 反对

使用道具 举报

发表于 2007-8-2 11:40:27 | 显示全部楼层
??
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-2 14:08:06 | 显示全部楼层
退出不报错..

上午没电...一会试了给结果.
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-2 16:12:29 | 显示全部楼层
用你的代码是可以的..
不知道什么原因.
我把代码贴出来.你帮我看看。


Procedure TWBRB.SumByWbxm;//(Adate:String;BDate:String;Cdw:String);//(A:String;B:String;C:String);
var   lQuery:TQuery;
      lQuery_Str:String;
      A:String;B:String;C:String;DW:String;
begin
      a:=DataSetWBC.FieldByName ('bc').AsString ;
      b:=DataSetWBC.FieldByName ('xm').AsString ;
      c:=DataSetWBC.FieldByName ('s_z').AsString ;
      dw:=DataSetWBz.FieldByName ('TBDW').AsString ;
      lQuery:=TQuery.Create (nil);
      try
        lQuery.ConnectionString :=StrConn;
        lQuery_Str:='select bc,xm,s_z,lj=sum(je) from wbmxb '
         +'where ZBGUID IN (select GUID from wbrbzb where tbdw= '''+dw+''' )'+' and '+
                         ' tbrq<= CONVERT(varchar(10),getDate(),120) '+' and '+
         'bc= '''+a+''' and xm= '''+b+''+'''and s_z= '''+c+''''
         +' group by bc,xm,s_z ';
        lQuery.CommandText :=lQuery_Str;
        lQuery.open;
       // DataSetWBC.Edit;
        DataSetWBC.FieldByName ('jeLJ').AsFloat :=lQuery.Fields[3].AsFloat ;
        //DataSetWBC.Post;
      finally
        lQuery.free;
      end;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-2 16:17:48 | 显示全部楼层
JELJ这个字段是数字的货币行.
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-2 16:29:01 | 显示全部楼层
这段代码一放到OnCalcFields这个事件中就出现这样的错误.

我是想在字段改变时给JELJ这个字段赋值
回复 支持 反对

使用道具 举报

发表于 2007-8-2 16:38:37 | 显示全部楼层
似乎循环调用了?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-2 16:47:23 | 显示全部楼层
循环??
我要根据A,B,C,DW为条件查出数据赋值给JELJ..

edit1.Text:=SysUtils.FloatToStr (lQuery.Fields[3].AsFloat);

这样子可以
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-13 10:45 , Processed in 0.036427 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表