给我看看:(50分)

  • 主题发起人 delphi_hzj
  • 开始时间
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.

麻烦大家给看一下!


 
你的Query1的SQL语句中Mybh是参数,你在Query1 OPEN之前要给他负值
Query1.Parameters[0].value:=你的Mybh应该是Edit1.Text吧!
 
顶部