delphi中报错，大家办我看看

来源：百度知道编辑：UC知道时间：2024/05/10 06:06:25

是循环执行的语句，看看引号的错误，老报有没有关闭的引号

if (CustomerData.ADOQuery1.fieldbyna('MaterialType').asstring='')and (CustomerData.ADOQuery1.fieldbyname('MaterialSpec').asstring<>'') then
begin
CustomerData.ADOQuery2.SQL.Add('SELECT * from TBS_Material where materialid like '+''''+'07'+'%'+''''+' and (MaterialType='+''''+''+''''+' or MaterialType is null) and MaterialSpec='+''''+CustomerData.ADOQuery1.fieldbyname('MaterialSpec').asstring+'''');
end;

if (CustomerData.ADOQuery1.fieldbyname('MaterialType').asstring<>'') and (CustomerData.ADOQuery1.fieldbyname('MaterialSpec').asstring='') then
begin
CustomerData.ADOQuery2.SQL.Add('SELECT * from TBS_Material where materialid like '+''

CustomerData.ADOQuery2.SQL.Add('SELECT * from TBS_Material where materialid like '+''''+'07'+'%'+''''+' and (MaterialSpec='+''''+''+''''+' or MaterialSpec is null) and (MaterialType='+''''+''+''''+' or MaterialType is null');
最后一个NULL的引号是不是要去掉啊。

delphi中报错，大家办我看看大家帮我看一下这句delphi语句大家请来看看我的delphi问题! 大家来看看帮我想想怎样办大家办办我啊 Delphi高手们帮我看哈这个问题 3Q 请求DELPHI高手帮我看下这些代码是什么意思关于delphi的代码问题，大家来帮我看看。 delphi毕业设计遇到问题大家快来帮帮我，拜托！关于我办信用卡，不知道能不能下，大家来看看我的条件