20楼
<>应该是=,我已经测试过了
if SysUtils.Trim(lWhere) = '' then
lWhere := 'FPLANID IN (SELECT DISTINCT TPLANEXECUTOR.FPLANID FROM TPLANEXECUTOR, TPLAN WHERE (TPLAN.FPLANID = TPLANEXECUTOR.FPLANID))'
else
lWhere := SysUtils.Format(
'FPLANID IN (SELECT DISTINCT TPLANEXECUTOR.FPLANID FROM TPLANEXECUTOR, TPLAN WHERE (TPLAN.FPLANID = TPLANEXECUTOR.FPLANID) AND (%s))',
[lWhere]);