这就跟数据库存取有关系了～Form_Load（）以上我几乎都是照上面抄的～所以我也没辄～我没运行也没代码～不知道到底问题在哪～

说实在这行
Adodc4.Recordset.Fields(i)
我不知道怎变出来的～

能力不足～

版主，还是不行，请查看

Private Sub Command1_Click()
    dim i as integer
    On Error Resume Next '这一句错误处理要有，因为加载控件数组可能会出错，其实你只要设计一个label1(0)即可
    With Adodc1
   
        .ConnectionString = Conn
        
        .RecordSource = "select count(distinct hhh),sum(qq) FROM ttt_view where  " & _
        "  time>='" & Trim(DTPicker1.Value) & "' " & _
        " and time<='" & Trim(DTPicker2.Value) & "' " & _
        " and doc like'" & DataCombo2.BoundText & "%" & "'" & _
        " and cm like'" & DataCombo1.BoundText & "%" & "' group by hhh "
        
        .Refresh
        
    End With
    For i = 0 To Adodc4.Recordset.Fields.Count - 1
      Unload Label1(i + 1)
      Load Label1(i + 1)
      Label1(i + 1).Top = Label1(0).Top + (i + 1) * Label1(0).Height
      Label1(i + 1).Visible = True
      Label1(i + 1).Caption = Adodc4.Recordset.Fields(i)  '以label1(0)为基准，竖着排下来显示各字段值
    Next i
    '不过，你前面是对数据库控件Adodc1创建记录集，怎么在for循环里又对Adodc4进行操作了，除非你加载了好多数据库控件
End Sub


[ 本帖最后由 lowxiong 于 2011-5-27 19:53 编辑 ]

Label1(i + 1).Caption = Adodc4.Recordset.Fields(i) 应为
 Label1(i + 1).Caption = Adodc1.Recordset.Fields(i)  
按上面楼主所说的操作，只显示出所查询数据的第一行数据，而查询结果却有多行（1-5行不等),应如何修改？请指教，

[ 本帖最后由 jxawgya 于 2011-5-28 08:57 编辑 ]

楼主这样提问很不符合一个编程爱好者的行为规范，我给你别样的回答吧：
1：既然要显示多行，你为什么不使用表格控件，只要一句绑定记录集即可
2：既然你已经能显示一行数据，为什么不能触类旁通，由此及彼？你不至于现在还要爸妈喂饭吃才能生存吧。
3：真正的程序员是在尝试了多种方法后，实在不能解决的才会提问的，轻易提问实在有损编程人员尊严！
4：建议你这个帖子结贴，祝你能通过自己的努力获得编程的快乐。

因为解决不了的才提问，一个真正的游侠是能帮助别人的

楼主的代码出错问题在12#已经提示出错原因。

实用编程最好就是使用现有东东简单实现要求（专门研究目的除外）。

“触类旁通，由此及彼”是编程人所需要的，

加强自学能力，减少依赖。

lowxiong所说的都强加解释了一遍（理解不知对不对，最终解释以lowxiong本人解释为准），
lowxiong语气是重了些，但他也是在帮助你啊，
这里是交流的地方，有问题的提问题，愿意帮助的回复，就这样。

谢了，版主