急阿,,,,,谁能解决阿

jackwithlove 2003-09-28 10:54:51
A_ClientList[i] := TStringlist.create;
with datamodule1.ADOQuery2 do
for i:= 0 to Workercount - 1 do
begin
close;
parameters.Clear;
Parameters.CreateParameter('param',ftstring,pdinput,8,A_WorkerNumList.ValueFromIndex[i]);
sql.Clear;
sql.Add('select 客户名称 from 客户简写表 where 业务员编号 =:param');
open;
for j:=0 to datamodule1.ADOQuery2.RecordCount - 1 do
begin
A_ClientList[i].Add(datamodule1.ADOQuery2.fieldbyname('客户名称').AsString);
end;
combobox3.items.addstring(Clientlist[i])
却什么也没加进入去,这是为什么阿

...全文
24 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
snowfog 2003-09-29
  • 打赏
  • 举报
回复
你没给param参数赋值怎么会有结果?
kuyongzh 2003-09-28
  • 打赏
  • 举报
回复
同意snowfog(秋风舞),可能你还要用A_ClientList[i] as xxx,呵呵
snowfog 2003-09-28
  • 打赏
  • 举报
回复
A_ClientList[i] := TStringlist.create;
这句话应该放在循环里。
空中居士 2003-09-28
  • 打赏
  • 举报
回复
先追踪调试一下:
1看查询有没有内容,
2.看ClientList有没有内容
放入对应的控件试试
frogshero 2003-09-28
  • 打赏
  • 举报
回复
A_Clientlist[0]负了值,可第二次循环的时候,adoquery的recordercount 为零。不知道为什么。

::可能是你在adoquery的其他事件中写了代码影响的
jackwithlove 2003-09-28
  • 打赏
  • 举报
回复
A_ClientList[i] := TStringlist.create; 我做了循环,这里只是标示一下。在公共区做了循环。
jackwithlove 2003-09-28
  • 打赏
  • 举报
回复
A_Clientlist[0]负了值,可第二次循环的时候,adoquery的recordercount 为零。不知道为什么。
A_WorkerList的值没有错。

2,498

社区成员

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

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