5,388
社区成员
发帖
与我相关
我的任务
分享
procedure ReportSummary1_OnAfterPrint(Sender: TObject);
begin
Query1.close;
Query1.sql:='Update bd_title Set printno=printno+1 where dh='''+Memo17.memo.text+'''';
Query1.execsql;
end;
Query1.execsql;
注释掉就不会报错了。。procedure ReportSummary1_OnAfterPrint(Sender: TObject);
begin
Query1.close;
Query1.sql:='select * from bd_title where dh='''+Memo17.memo.text+'''';
Query1.open;
end;