【结贴】判断是否有重复记录。怎么实现？急**

aPanther

楼主，如何了？
回帖吧，我这里电话不方便。

chen20501157

没看到  GYJSBZB  这个的定义？能具体讲一下么？对平台不太熟悉

aPanther

GYJSBZB 是我给你参考代码里面的。
你要换成你自己用的表的表ID。

aPanther

楼主，如何了？搞定了么？

chen20501157

Function  THT_DETAIL_SHEET.WetherExistData(AProduct,ATable:string):boolean;
const lSql='Select count(*) as lCount from %s where  F_LX_PRONAM="%s"';
var
   lQuery:TQuery;
begin
     result:=false;
     if(AProduct='') then exit;
     lQuery:=TQuery.Create(nil);
     try
        lQuery.ConnectionString:=GetSMBDBConnectionStr;
        lQuery.Close;
        lQuery.CommandText:=SysUtils.Format(lSql,[ATable,AProduct]);   
        lQuery.Open;  //运行时在这里出错，然后在上一行设置断点，运行中也出错，截图在附件
        if lQuery.FieldByName('lCount').AsInteger=0 then
        begin
             Result:=False;
        end;
        if lQuery.FieldByName('lCount').AsInteger>0 then
        begin
             Result:=True;
        end;
     finally
            lQuery.Free;
     end;
end;

chen20501157

：）谢谢各位了：）

chen20501157

yancm

??什么意思？搞定了？

chen20501157

ok

zwjcooldd

。