1209
社区成员
8.8w+
社区内容
- 主页
...全文
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;
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;
没有测试过，你自己看看了
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中
^_^
^_^