简单问题求解

Question

dm.ExecSql('delete from lb_print where box_no='+dm.Printain.fieldbyname('box_no').AsVariant);
数据库用access box_no是文本类型，执行是提示：标准表达式中类型不匹配
是什么原因？？

Answer 1

dm.ExecSql('delete from lb_print where box_no='''+dm.Printain.fieldbyname('box_no').AsString+'''');

Answer 2

加上quotedstr即可
dm.ExecSql('delete from lb_print where box_no='+quotedstr(dm.Printain.fieldbyname('box_no').AsString));