D
delphi_hzj
Unregistered / Unconfirmed
GUEST, unregistred user!
我的问题是这样的:
我在dbgrid中显示的是BH=edit1.text的记录
DbGrid联接的数据库是cd.dbf
dbgrid内容显示如下:
Bh je
021000001 12.01
021000001 10.05
021000001 47.94
其中dbgrid的内容是隨edit1.text的值改变而改变的。
我的目的是想求出当前dbgrig中的所有记录的Je
字段的和,并赋给edit2。
我的代码如下
procedure TForm2.SpeedButton1Click(Sender: TObject);
var Mybh:string;
begin
Query1.SQL.text:='select sum(je) as Myje from cd.dbf where bh=:Mybh';//我想
就在读这句时出的错,
query1.open;
edit2.text:=query1.fieldByname('Myje').asstring;//将和Myje赋给edit2
query1.close;
end;
试运行通过,但程序发布后运行出现错误:
Query1:Field 'Mybh' is of an unknown type.
麻烦大家给看一下!
我在dbgrid中显示的是BH=edit1.text的记录
DbGrid联接的数据库是cd.dbf
dbgrid内容显示如下:
Bh je
021000001 12.01
021000001 10.05
021000001 47.94
其中dbgrid的内容是隨edit1.text的值改变而改变的。
我的目的是想求出当前dbgrig中的所有记录的Je
字段的和,并赋给edit2。
我的代码如下
procedure TForm2.SpeedButton1Click(Sender: TObject);
var Mybh:string;
begin
Query1.SQL.text:='select sum(je) as Myje from cd.dbf where bh=:Mybh';//我想
就在读这句时出的错,
query1.open;
edit2.text:=query1.fieldByname('Myje').asstring;//将和Myje赋给edit2
query1.close;
end;
试运行通过,但程序发布后运行出现错误:
Query1:Field 'Mybh' is of an unknown type.
麻烦大家给看一下!