主题：求助！listbox的数据来源
j668
[专家分：30] 发布于 2006-12-22 01:06:00
listbox的数据来源于adoquery中sql:select distinct 类别 from 进货
不知如何实现，是否用listbox.additem()，不知如何去实现。。
用惯foxpro，用delphi有点困难。
希望大家帮帮忙哦。
回复列表 （共6个回复）
沙发
极品泡饭 [专家分：90] 发布于 2006-12-22 09:36:00
listbox1.additem(adoquery.Fields.FieldByName(‘类别’).Value);
板凳
j668 [专家分：30] 发布于 2006-12-22 11:07:00
提示错误。。。。。Error] cs.pas(149): Not enough actual parameters
procedure Tsb.Edit5Change(Sender: TObject);
begin
if Sb.Edit5.Text='' then
Sb.ListBox1.Visible:=false;
with sb.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select distinct 规格 from 商品');
open;
end;
Sb.ListBox1.AddItem(Sb.adoquery1.Fields.FieldByName('类别').Value);//就这句有误。
end;
3 楼
aizaixiiii [专家分：2130] 发布于 2006-12-22 14:55:00
Listbox1.Items.Add(adoquery1.FieldByName('类别').Value);
4 楼
j668 [专家分：30] 发布于 2006-12-22 19:51:00
for j:=0 to adodataset2.RecordCount-1 do
begin
fi:=sb.ADOdataset2.fieldbyname('规格').Value;
Sb.ListBox1.Items.Add(fi);
end;
为什么只是显示第一个记录，而且循环后全部都是第一个记录
5 楼
j668 [专家分：30] 发布于 2006-12-22 19:54:00
已解决。。谢谢大家帮忙！在循环一次后加adodataset2.next;
6 楼
xiaoping622 [专家分：0] 发布于 2006-12-28 08:56:00
Sb.ListBox1.AddItem(Sb.adoquery1.Fields.FieldByName('类别').Value);//就这句有误
这一句应该是:
Sb.ListBox1.AddItem(Sb.adoquery1.Fields.FieldByName('类别').asstring);
试一下,我以前做过的....我想能行....
我来回复
您所在位置：