Question

请高手解决delphi 数据库中6个COMBOBOX组合 查询代码(急)

我是新手,用DELPHI+ACCESS做一个查询小系统,查询窗口中用到一个ADOQUERY,DATAOURCE ,DBGRID 和6个COMBOBOX;其中COMBOBOX2与COMBOBOX5只能选中一个,就是COMBOBOX2可以和除COMBOBOX5以外的4个组合,COMBOBOX5可以和除COMBOBOX2以外的4个组合,请各位高手给小弟解决;我的邮箱zhuyunjiecha@126.com

Answer 1

从你的表达意思来说，这样应该可以实现:

在ComboBox2的OnChange事件中：
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.ItemIndex<>-1 then
ComboBox5.ItemIndex:=-1;
end;

在ComboBox5的OnChange事件中：
procedure TForm1.ComboBox5Change(Sender: TObject);
begin
if ComboBox5.ItemIndex<>-1 then
ComboBox2.ItemIndex:=-1;
end;

你的表达意思不是很清楚，不知道能不能帮上你的忙。

Answer 2

应该来不是太难的事，不过你表达的不清楚呀