菜鸟问题！--在线等待。

Question

LOOKUP用法
我查了该主题以前贴子，还是不明白，请指教：function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; virtual;在A表中有字段A001，A002,....；B表中有字段B001，B002,.....
现在要用A表中A001字段与B表比较,如A001在B表B001列中存在,返回TRUE,ELSE,返回假.
用LOOKUP可以做到吗? WITH BOMMC DO
       if Lookup('A001',TRIM(BOMMD.FieldByname('B002').AsString),'A002')then;
        
        BEGIN
        SHOWMESSAGE('NO FIND');
        EXIT;上面代码不行搞不清楚返回值是什么类型.

Answer 1

上面代码有误,应该是:
 WITH BOMMC DO
       if Lookup('B001',TRIM(BOMMD.FieldByname('A001').AsString),'B002') then;
        BEGIN
        SHOWMESSAGE('NO FIND');
        EXIT;