困惑多日的问题控件数组 - VB6论坛

jxawgya

等　级：新手上路
帖　子：64
专家分：9
注　册：2010-1-5
结帖率：91.67%

楼主

已结贴√ 问题点数：40 回复次数：18

困惑多日的问题控件数组

意思是想一个窗体显示多条记录的意思，却又不想使用表格，如用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 编辑 ]

搜索更多相关主题的帖子: 时间　 where　

2011-05-21 14:47

Artless

等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8

第 3 楼

得分:5

无知

2011-05-22 00:10

qq1023569223

来　自：湖南科技大学
等　级：贵宾
威　望：26
帖　子：2753
专家分：13404
注　册：2010-12-22

第 5 楼

得分:5

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

唯实惟新至诚致志

2011-05-24 15:00

jxawgya

等　级：新手上路
帖　子：64
专家分：9
注　册：2010-1-5

第 7 楼

得分:0

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

2011-05-25 09:27

wube

等　级：贵宾
威　望：23
帖　子：1817
专家分：3681
注　册：2011-3-24

第 9 楼

得分:0

是这样吗？不太了解你要啥～也没你的数据库～
是假设你要把前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

不要選我當版主

2011-05-25 12:37