combobox初始化问题........急

Question

如何给N个combobox控件初始化，即用AddItem方法把数据库的记录添加进去：
我的代码如下，但都只能添加一条记录，请问如何修改代码：
        rss.Open ("select Part,Dept,Duty,Sex FROM  System"), cnn, 1, 3     
        For i = 0 To 3
            cboLinkManInfo.Item(i).AddItem rss(rss.Fields(i).Name)
        Next我是用的ADO链接数据库的。我就想把某字段的记录全装进combobox控件

Answer 1

① 不要将 cboLinkManInfo 设计成控件数组
② cboLinkManInfo).AddItem rss(rss.Fields(i).Name)

Answer 2

不把 cboLinkManInfo 设计成控件数组，那不是要写N个重复的语句了？没解决方法吗？

Answer 3

rss.Open ("select Part,Dept,Duty,Sex FROM  System"), cnn, 1, 3     
        For i = 0 To 3
            cboLinkManInfo.Item(i).AddItem rss(rss.Fields(i).Name) '你这是给每个combo添加一个记录名，而不是记录！
        Next可以改为
        For i = 0 To 3
          for j=0 to 10'10可以改为你要想的数
            cboLinkManInfo.Item(i).AddItem rss(rss.Fields(j) 
           rss.movenext         
          Next
        next

Answer 4

我用的是for j=0 to rss.Fields.Count
提示：找不到项目 
因为数据库中有些字段是只有两天记录，而有些是有多条记录的。

Answer 5

总算明白你的意思了
rss.Open ("select Part,Dept,Duty,Sex FROM  System"), cnn, 1, 3   
while not rss.eof
  for i= 0 to 3
    if not isnull(rss.fields(i).value) then
      cboLinkManInfo.Item(i).AddItem rss.fields(i).value
    end if
  next
  rss.movenext
wend

Answer 6

LZ的要求是不是 把1个表所有单元按行 添加到cboLinkManInfo

Answer 7

Tiger_Zhao(VB老鸟) 果然是个人才 问题解决 万分感谢