Question

请教关于DELPHI的问题， 如何去掉DBcombobox中的重复项？如何让两个DBcombobox关联呢？

已与Access数据库建立连接，下面的代码仅仅是加载三项到三个DBcombobox中。
求教 1.如果我的kc表中有重复项，那我如何把它去掉呢？

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOT_mz.Open; //加载时我用的ADOtable，没用ADOquery
while not ADOT_mz.Eof do
begin
DBComboBox1.Items.Add(ADOT_mz.Fields[1].AsString);
ADOT_mz.Next;
end;
////////////////////
ADOT_kc.Open;
while not ADOT_kc.Eof do
begin
DBComboBox2.Items.Add(ADOT_kc.Fields[1].AsString);
ADOT_kc.Next;
end;
//////////////////
ADOT_js.Open;
while not ADOT_js.Eof do
begin
DBComboBox3.Items.Add(ADOT_js.Fields[1].AsString);
ADOT_js.Next;
end;

ADOT_xuesheng.Open;
end;

2. DBcombobox2如何与DBcombobox3关联？？

我写的如下的代码，哪里错了呢？不能关联的...
procedure TFormD_Chu.DBComboBox2Change(Sender: TObject);
begin
if Trim(DBComboBox2.Text)<>'' then
begin
DBComboBox3.Items.Clear;
ADOQuery1.Close; //因为原先没想到直接用ADOquery，后来要用了才加了一个，与连接DBcombobox2连接的Datasource2连接。
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('select Name from Unit Where Area='''+Trim(DBComboBox1.Text)+'''');
ADOQuery1.Open;
While not ADOQuery1.EOF DO
begin
DBComboBox3.Items.Add(ADOQuery1.FieldByName('Name').asstring);
end;
end;

非常非常感谢...

Answer 1

select distinct Name from Unit......