这段话编译通过,但功能层运行时,出错。
错误是:expecting''', found' '
但这段话是在其他窗体里运行通过的,COPY过来的,两个窗体功能完全一样,只是换个表名,为什么这里就出错呢?
procedure THJHYDBBCX.Button3Click(Sender: TObject);
var
changebz:string;
begin
changebz:= 'update HJHYDBZB set bz='''+Memo1.Lines.Text+''' where (rq >= ''' + Business.system.sysutils.FormatDatetime('YYYY-MM-DD',dt1.Date) +'''' +
') and (rq <= ''' + Business.system.sysutils.formatdatetime('YYYY-MM-DD',dt2.Date) +'''' +
') and czybm='''+combobox1.Text+'''';
DataSetBroker2.DataSet.Close;
TSQLDataSet(DataSetBroker2.DataSet).SQL.Text := changebz;
DataSetBroker2.DataSet.Execute;
Business.forms.jsDialogs.ShowMsg('您已成功保存!','保存信息');
Memo1.Lines.Text:='';
Memo1.Enabled:=false;
end;
麻烦帮我看一下,谢谢! |