将数据库中某一字段添加到combobox中去。不希望有重复的,并且不希望将空记录添加上去。怎么办呢?

0000007 2004-12-26 02:37:27
我一添加连空白也加了上去。
...全文
131 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
chenchangfu 2004-12-26
  • 打赏
  • 举报
回复
http://dev.csdn.net/article/46/46054.shtm
Kevin_Lmx 2004-12-26
  • 打赏
  • 举报
回复
借楼上兄弟代码一用 ^_^
combobox.Item.Clear;
with ADOQery1 do
begin
SQL.Clear;
SQL.Add(SQLs);
Open;
while not Eof do
if (Trim(FieldByName(Field1').AsString) <> '') and
{不为空}
(ComboBox1.Items.IndexOf(Trim(FieldByName(Field1').AsString)=-1)
{无重复}
then
combobox1.Item.Add(FieldByName(Field1').AsString);
Next;
end;
chenchangfu 2004-12-26
  • 打赏
  • 举报
回复
用SQL语句查处数据来,如SQL语句
var
SQLs: string
begin
SQLs := 'SELECT DISTINCT field1 FROM Table1 WHERE Field1 IS NOT NULL AND Field1 <> ''''''';
combobox.Item.Clear;
with ADOQery1 do
begin
SQL.Clear;
SQL.Add(SQLs);
Open;
while not Eof do
if Trim(FieldByName(Field1').AsString) <> nil then
combobox.Item.Add(FieldByName(Field1').AsString);
Next;
end;
没有测试过,你自己看看了
gxgyj 2004-12-26
  • 打赏
  • 举报
回复
楼主最好把你的代码贴出来,大家好在你原来的代码上,帮你出出主意!....
Kevin_Lmx 2004-12-26
  • 打赏
  • 举报
回复
先将字段取出来,放到一个字符串数组中,再去掉重复和空白的,然后添加到ComboBox中
^_^

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧