这是我写的代码,求教procedure TForm1.Button5Click(Sender: TObject);var i: Integer=0; j: Integer=0;begin ListBox1.Clear; Try begin while i < ADOTable1.FieldByName(ComboBox1.text).Value.Count // 此处想获得ComboBox1.text中字段的数目作为计数,估计不对,求教 do begin while j < ADOTable2.FieldByName(ComboBox2.text).Value.Count // 同上 do begin if ADOTable1.FieldByName(ComboBox2.text).Value = ADOTable2.FieldByName(ComboBox1.text).Value // 此处不知道如何和变量i和j关联起来,求教 then ListBox1.Items.Add(ADOTable2.FieldByName(ComboBox2.text).Value); // 同上 j:=j+1 else j:=j+1; end; i:=i+1; end; end; except if ListBox1.ItemIndex =0 then ShowMessage('没有相同的记录'); end;end;