意思是想一个窗体显示多条记录的意思，却又不想使用表格，如用Label1显示，
Private Sub Command1_Click()
With Adodc4
             .ConnectionString = Conn
             .RecordSource = "select count(distinct rte),sum(yu) FROM ttt_view where  " & _
             "  时间>='" & Trim(DTPicker1.Value) & "' " & _
             " and 时间<='" & Trim(DTPicker2.Value) & "' "
              .Refresh
          End With

Label1.Caption = Adodc4.Recordset.Fields(0)
Label1.Caption = Adodc4.Recordset.Fields(1)

Label1为数组控件
应如何解决，请指教

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

Label1.Caption = Adodc4.Recordset.Fields(0)
Label1.Caption = Adodc4.Recordset.Fields(1)
你这样不对吧！控件数组也要一个一个给值！
好像是如：
For i=0 To 10
Label1(i).Caption=Adodc4.Recordset.Fields(0);  '是否这样，VB陌生了！
Next i


[ 本帖最后由 qq1023569223 于 2011-5-21 18:25 编辑 ]

Adodc4 查询出来的数据有3列多行，如何赋值？

下移一个位置啊,Label1.Caption = Adodc4.Recordset.Next '移到下一个记录

控件数组也是数组的一种吧，所以2楼说的对

提示：未找到方法或数据成员

请指教

是这样吗？不太了解你要啥～也没你的数据库～
是假设你要把前10笔相关资料抓出来依序放到Label1（）的数组中显示而已～
重新帮你排过版了～

Private Sub Command1_Click()

    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 Label1.Count - 1
        Label1(i).Caption = Adodc4.Recordset.Fields(i)    '这部分我不确定这样写对不对～
    Next i

 
End Sub

Private Sub Form_Load()
    Form1.Height = 2775
    Form1.Width = 3120
    
    Command1.Left = 120
    Command1.Height = 375
    Command1.Width = 2775
    
    For i = 0 To Label1.Count - 1
        Label1(i).Height = 255
        Label1(i).Caption = ""
        If i < 5 Then
            Label1(i).Left = 120
        Else
            Label1(i).Left = 1560
        End If
    Next i
    
End Sub

按上面所说出现如下：