TDBComboBox与某字段的连接

Question

数据表结构如下：
A   B 
a0  b0
a1  b0
a2  b1
a3  b2
a4  b2
a5  b2
a6  b3
a7  b3现在想要在TDBComboBox中无重复的加入B字段的内容：b0 b1 b2 b3
运行时选择不同的B字段的值，则在一个TDBListBox中出现与之对应的A字段的值
如选择b1，在TDBListBox中出现a2；选择b0在TDBListBox中出现a0 a1
怎样用数据控件来实现如上功能。

Answer 1

加一个ADOQuery，写sql语句完成。

Answer 2

with query1 do 
begin
close;
sql.clear;
sql.add('Select * from table where a=:A');
parambyname('A').asvalue:=DBComboBox.item.text;
open;
end;
while not query1.eof then
begin
DBlistBox.lines.add(query1.fieldvalues['b']);
query1.next;
end;