下面语句执行之后的想得到效果是 选好combobox1的内容再按Button3在BDgrid里面显示出来，但我执行之后，什么都显示不出来。帮帮忙！哪里有问题？我是新手！

procedure TPagesDlg.Button3Click(Sender: TObject);
begin
if combobox1.Items.Text='新业务' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from Tsub';
adoquery1.Open;
end;

if combobox1.Items.Text='经济效益情况' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from Tec';
adoquery1.Open;
end;
end;
end.

你的dbgrid中的datasource属性设置了吗？

不可能啊,没有错误

我没有看出来可能是你那里的属性设置错了

我设置好了，当只有一个if语句的话就可以显示出来，但两个了就不行了！
我都不知道什么问题！

if trim(combobox1.Text)='新业务' then
begin
adoquery1.Close;
adoquery1.SQL.Text:='select * from Tsub';
adoquery1.Open;
end;
if trim(combobox1.Text)='经济效益情况' then
begin
adoquery1.Close;
adoquery1.SQL.Text:='select * from Tec';
adoquery1.Open;
end;

combobox1.items.Text是combobox1中全部的内容.

[此贴子已经被作者于2006-4-16 15:55:34编辑过]

谢谢！可以了！