请大家帮忙看一下,这段代码有错误吗(0分)

  • 主题发起人 主题发起人 3897113blueappl
  • 开始时间 开始时间
3

3897113blueappl

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm16.Button1Click(Sender: TObject);
var
hj,str:real;
begin
adoquery2.Edit;
adoquery2.Open;
hj:=(adoquery2.Fields[10].asfloat)/12;
str:=strtofloat(combobox1.text)/100;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('update ryb set zy_xnyjylj=zy_nyjylj*+str+');
adoquery1.SQL.Add('update ryb set zy_ypjsr=
代码:
+hj+');
adoquery1.ExecSQL;

end;
 
你应该先打开Dataset再对它进行操作
 
adoquery2.Edit;
adoquery2.Open;
怎么这么写阿
先open再edit阿
 
你的水平有些洼。
去掉‘adoquery2.Edit;’

将‘adoquery1.SQL.add('update ryb set zy_xnyjylj=zy_nyjylj*+str+');
adoquery1.SQL.Add('update ryb set zy_ypjsr=
代码:
+hj+');’
改为:
adoquery1.SQL.add('update ryb set zy_xnyjylj=zy_nyjylj * '+floattostr(str) );
adoquery1.SQL.add(',zy_ypjsr= '+floattostr(hj) );
代码:
’不知道是什么意思。

 
后退
顶部