各位帮下忙

Question

frm_dm.Quewat.Close;
      frm_dm.Quewat.sql.Clear;
      frm_dm.Quewat.sql.Add('insert into water(pagenum,copydate,eleread,eletimes,eleadd,waterread,watertimes,wateradd,');
      frm_dm.Quewat.sql.Add('eleread2,eletimes2,eleadd2,waterread2,watertimes2,wateradd2,eleprice,waterprice,');
      frm_dm.Quewat.sql.Add('totalmoney,note');
      frm_dm.Quewat.SQL.Add('values(:pagenum,:copydate,:eleread,:eletimes,:eleadd,:waterread,:watertimes,:wateradd,');
      frm_dm.Quewat.SQL.Add(':eleread2,:eletimes2,:eleadd2,:waterread2,:watertimes2,:wateradd2,:eleprice,:waterprice,');
      frm_dm.Quewat.SQL.Add(':totalmoney,:note)');
      with frm_dm.Quewat.Parameters do
        begin
      //frm_dm.Quewat.Parameters.
      ParamByName('pagenum').Value:=pagenum.Caption;
      ParamByName('copydate').Value:=Datetimepicker1.Date;
      ParamByName('eleread').Value:=eleread.Text;
      ParamByName('eletimes').Value:=eletimes.Text;
      ParamByName('eleadd').Value:=eleadd.Text;
      ParamByName('waterread').Value:=waterread.Text;
      ParamByName('watertimes').Value:=watertimes.Text;
      ParamByName('wateradd').Value:=wateradd.Text;
      ParamByName('eleread2').Value:=waterread2.Text;
      ParamByName('eletimes2').value:=eletimes2.Text;
      ParamByName('eleadd2').Value:=eleadd2.Text;
      ParamByName('waterread2').Value:=waterread2.Text;
      ParamByName('watertimes2').Value:=watertimes2.Text;
      ParamByName('wateradd2').Value:=wateradd2.Text;
      ParamByName('eleprice').Value:=elepri.Text;
      ParamByName('waterprice').Value:=waterpri.Text;
      ParamByName('totalmoney').Value:=totalmoney;
      ParamByName('note').Value:=bz.Text;
        end;
      frm_dm.Quewat.ExecSQL;
在values附近有错误，本人一时找不出来，望各位帮一下忙。

Answer 1

你格式错了呀
insert into water(field1,field2)values('aaa','bbb')这才是SQL语句你在后面加一句,
showmessage(frm_dm.quewat.sql.text); 
    frm_dm.Quewat.ExecSQL;

Answer 2

so长
在frm_dm.Quewat.ExecSQL;前面
加showmessage(frm_dm.Quewat.SQL.Text);
看看是哪里错了,
也可以把frm_dm.Quewat.SQL.Text放到查询分析器里看看

Answer 3

ParamByName('watertimes').Value
ParamByName('watertimes').Value
ParamByName('totalmoney').Value!

Answer 4

在with frm_dm.Quewat.Parameters do之前加上
frm_dm.Quewat.Parameters.Refresh试一试