展开全部
修改一个地方应该就可以了
v_spno := copy(fieldbyname('spno').AsString, i + 1, 28);
if copy(qymst.FieldByName('spno').AsString, i + 1, 28) = v_spno then
改为:
v_spno := copy(fieldbyname('spno').AsString, i + 1, 28);
if v_spno='001' then
因为你程序中的 fieldbyname('spno').AsString = qymst.FieldByName('spno').AsString
所以你的if 永远都是true,根本就没有起到判断的作用
v_spno := copy(fieldbyname('spno').AsString, i + 1, 28);
if copy(qymst.FieldByName('spno').AsString, i + 1, 28) = v_spno then
改为:
v_spno := copy(fieldbyname('spno').AsString, i + 1, 28);
if v_spno='001' then
因为你程序中的 fieldbyname('spno').AsString = qymst.FieldByName('spno').AsString
所以你的if 永远都是true,根本就没有起到判断的作用
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询