1一、窗体显示的时刻cbb1.clearwhilenotqry1.eofdobegincbb1.items.add(qry1.FieldbyName('字段').AsString);qry1.next;二、ONSelect事宜中end;代码同上