| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/29 12:04:05 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | procedure TForm10.FormCreate(Sender: TObject); begin with dm.ADOQuery1 do begin close; sql.Clear; sql.Text:='select distinct * from edit'; open; first; while not eof do begin combobox1.Items.Add(fields[4].Value ); next; end; combobox1.ItemIndex :=0; end; 这段程序是从数据库里调用某个字段的数据，假如数据库的某个字段值是1、2、 3、2，在combox里列出来的数据也将是1、2、3、2，而我想把那个重复的2给合并了就显示1、2、3，大哥们帮我 ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/29 12:19:51 | ||||
| 1楼： | 在你的SQL语句中加入排序如下所示 var tmpstr:string; Sql.text:='select distinct * from edit Ader by 你要调的字段'; tmpstr:=''; while not eof do begin if Fields[4].Value<>tmpstr then Combox1.Items.Add(Fields[4].Value); tmpstr:=Fields[4].Value; next; end; 没调试，给你个参考吧！ 大家一起进步！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 12:38:43 | ||||
| 2楼： | 这样也不行啊！ ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/29 13:26:52 | ||||
| 3楼： | 发过来，我帮你调下:E_mail：fengerzhang20@163.com ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 13:34:03 | ||||
| 4楼： | 真的很感谢这位大哥！有你这样的大哥，我们这群小弟才会进步！只是我用了好多控件，发给你你可能也打不开，很麻烦的！我现在的情形是在combobox1里什么也没有 ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/29 14:17:53 | ||||
| 5楼： | 我用Acess做一个简单的发给你，你参考看看吧！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 14:30:25 | ||||
| 6楼： | 晕附件发不上去 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 14:33:34 | ||||
| 7楼： | 不好意思写错了几个词。Sorry var tmpstr:string; Sql.text:='select distinct * from edit order by 你要调的字段 ASC'; tmpstr:=''; while not eof do begin if Fields[4].Value<>tmpstr then Combox1.Items.Add(Fields[4].Value); tmpstr:=Fields[4].Value; next; end; 没调试，给你个参考吧！ 大家一起进步！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/29 15:26:57 | ||||
| 8楼： | with dm.ADOQuery1 do begin close; sql.Clear; Sql.text:='select distinct * from edit order by ht_danwei'; tmpstr:=''; while not eof do begin if Fields[4].Value<>tmpstr then form10.ComboBox1.Items.Add(Fields[4].Value); tmpstr:=Fields[4].Value; next; end; form10.ComboBox1.ItemIndex:=0; 是这样吗？但还是不行啊！你发到我zjmetal@hotmail.com ---------------------------------------------- 我是菜鸟！ |
|||||
| 作者： |
|
2004/3/29 15:33:13 | ||||
| 9楼： | DISTINCT后面要跟具体字段名称，你用“*”系统怎么知道你要针对那个字段排除重复行呢,明白？ ----------------------------------------------  敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯，让我们共同成长！ |
|||||
| 作者： |
|
2004/3/29 15:52:42 | ||||
| 10楼： | 已发送，注意查收！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
