delphi从数据库中读取数据的问题

Question

procedure TyuceForm.Button1Click(Sender: TObject);
var
 N,i:integer;
begin
  data_listbox2.Clear;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select a.* from zhidutieputable a, youyangxinxitable b where ((b.采样日期          between :c and :d)and(a.油样编号=b.油样编号)and((b.设备编号='''+edit2.Text+''')or(b.样点编号='''+edit2.Text+''')or(b.企业名称='''+edit3.Text+''')))order by 采样日期');
  adoquery1.Parameters.ParamByName('c').Value:=datetimetostr(datetimepicker2.DateTime);
  adoquery1.Parameters.ParamByName('d').Value:=datetimetostr(datetimepicker3.DateTime);
  adoquery1.Open;
  for i:=0 to adoquery1.RecordCount-1 do
    begin
     Data_ListBox2.Items.Add(adoquery1.fieldbyname(combobox2.Text).AsString);
     adoquery1.Next;
    end;
end;以上代码是从数据库中读取几列数据放在adoquery中,然后根据combobox控件中显示的列名,将adoquery中相应列名的数据存放在listbox控件中.
 
我现在有个问题,如何剔除adoquery中非零的数据,只将不等于0的数据存在listbox控件中

Answer 1

for i:=0 to adoquery1.RecordCount-1 do
begin
  if (adoquery1.fieldbyname(combobox2.Text).AsString <> '0') then
    Data_ListBox2.Items.Add(adoquery1.fieldbyname(combobox2.Text).AsString); 
  adoquery1.Next;
end;

Answer 2

使用 filter 属性看看。