数据表ecsms_iso中有记录(ctnsize,ctntype为组合主键):ctnsize ctntyp oldiso newiso
------------------------------
20 FR
20 HR
40 FR
53 HR
53 TR执行语句:
with ADODataset1 do
begin
close;
commandtext:='select distinct ctnsize from ecsms_iso';
open;
end;for i:=0 to ADODataset1.RecordCount-1 do
begin
temp:=ADODataset.Fields.Fields[0].AsString;
CtnSizeEdit.Items.Add(temp);
end;结果下拉框CtnSizeEdit中出现的是20 20 20,
而不是20 40 53!!!奇怪!!
------------------------------
20 FR
20 HR
40 FR
53 HR
53 TR执行语句:
with ADODataset1 do
begin
close;
commandtext:='select distinct ctnsize from ecsms_iso';
open;
end;for i:=0 to ADODataset1.RecordCount-1 do
begin
temp:=ADODataset.Fields.Fields[0].AsString;
CtnSizeEdit.Items.Add(temp);
end;结果下拉框CtnSizeEdit中出现的是20 20 20,
而不是20 40 53!!!奇怪!!
解决方案 »
- dbgrideh 统计和的问题
- 请问调用webservice接口时,报错误是怎么回事“SOAP classes must derive from TRemotable”
- ? 怎么样得到别的应用程序里面的dbgrid里的具体内容 我text文本框能够取到 dbgrid的怎样得到啊
- Access中sql类型转换?
- 有关串口检测的问题
- 怎样在TShellListView控件中获得完整的路径??
- ================一个后台数据工具==================
- char和integer
- d6下组件安装的问题?
- Delphi的远程数据库连接问题
- 怎样处理Access数据库的图片字段?高分求例程.
- 做过分析HTML代码的高手请进
begin
temp:=ADODataset.Fields.Fields[0].AsString;
ADODataset1.next;
CtnSizeEdit.Items.Add(temp);
end;
please try?I don't know weather ADODataset1 has function next;
ADODataset1.Next; for循环里面
begin
close;
commandtext:='select distinct ctnsize from ecsms_iso';
open;
end;for i:=0 to ADODataset1.RecordCount-1 do
begin
temp:=ADODataset.Fields.Fields[0].AsString;
CtnSizeEdit.Items.Add(temp);
adodataset1.next;//这个不写不出错才怪呢
end;