标签:str ado color message next ext begin pre 存在
var IsHave:Boolean; begin adoquery.first; while(not adoquery.eof) do begin if(adoquery.fieldbyname(‘列名‘).asstring="用户添加的值") then begin IsHave=True; break; end; adoquery.next; end; if(IsHave)then showmessage("存在重复数据!"); end;
delphi如何检索adoquery里面某一列存在的重复行?
标签:str ado color message next ext begin pre 存在
原文地址:https://www.cnblogs.com/jijm123/p/10367510.html