一条??select distinct nr from table1 where xm="性别";
然后用循环加进 combobox(cxb);
然后用循环加进 combobox(cxb);
解决方案 »
- 急!!!TDBRADIOGROUP包含自增长字段时无法点选,如何解决
- 大家来抢分阿!
- 如何将数据库中的某个字段的所有记录读入到一个TstringList中?
- 短信编程
- 100分。释放动态控件数组的时候总是出错。求助 。
- 如何使用fastreport打印jpeg格式的图片,急ing....
- 我是DELPHI编程爱好者!希望在CSDN里广交爱好DELPHI朋友!一起交流DELPHI方面的问题!
- 大家现在编程多采用什么结构?
- 怎么使用db contral组件改变数据库里的数据?比如dbmemo,偶记得好象要调用datasource的edit,post属性,但究竟应该怎么做?
- delphi中如何创建联机帮助文件呀
- 谁能帮我关于Tree的小问题
- 急!!!一个简单不常遇到的问题,FileListBox 控件如何实现按时间顺序排列文件。
然后从循环加入combobox,如果已经加入相同的就不加咯
with Query1 do
begin
SQL.Clear;
SQL.Add('select distinct xm,nr from table where ...');
Open;
end;
while (not Query1.Eof) do
begin
ComboBox1.Text := Query1.FieldByName('xm').AsString;
ComboBox2.Text := Query1.FieldByName('nr').AsString;
Query1.Next;
end;
with Query1 do
begin
SQL.Clear;
SQL.Add('select distinct xm,nr from table where ...');
Open;
end;
while (not Query1.Eof) do
begin
Close;
ComboBox1.Text := Query1.FieldByName('xm').AsString;
ComboBox2.Text := Query1.FieldByName('nr').AsString;
Query1.Next;
end;
哎,眼睛花了
begin
close ;
SQL.Clear;
SQL.Add('select distinct xm,nr from table where ...');
Open;
end;
while (not Query1.Eof) do
begin
ComboBox1.items.add(Query1.FieldByName('xm').AsString);
ComboBox2.items.add(Query1.FieldByName('nr').AsString);
Query1.Next;
end;
ComboBox1.itemindex := 0 ;
ComboBox2.itemindex := 0 ;
cxb.filter:='xm=性别'; (请不要笑我)