请教:如何让品名循环显示？

13601812106_01

我建立了表一，里面有品名字段，想通过循环程序，每条中品名依次用MsgBox  显示出来，请教大家，弄了个函数，结果不是我要的结果。
Function GetStr() As String

    Dim Rs As New ADODB.Recordset
    Dim str As String
    str = "Select * From 表1 "
    Rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDiRst
    GetStr = ""
    If Rs.EOF Then
    Else
        Rs.MoveFirst
        For i = 1 To Rs.RecordCount
            GetStr = GetStr & Rs!品名
            Rs.MoveNext
        Next i
    End If
    Rs.Close
    Set Rs = Nothing
   
End Function

咱家是猫

看你的描述,你应该在循环中用Msg,但看你的代码,意图去象是要先出所有品名的字符串.那如果坚持你代码的意图的话,也可以继续,那不是在串品名时用个分隔符把各品名隔开,如用分号或逗号.
在利用此函数获到到品名字符串后(包含了所有品名),再用Split函数来分解吧.

roych

1. Function GetStr() As String
   
2. Dim Rs As New ADODB.Recordset
   
3.     Dim str As String
   
4.     str = "Select * From 表1 "
   
5.     Rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDiRst
   
6.     GetStr = ""
   
7.     If Rs.EOF Then
   
8.     Else
   
9.         Rs.MoveFirst
   
10.         For i = 1 To Rs.RecordCount
    
11.             GetStr = Rs!品名
    
12.             Msgbox GetStr
    
13.             Rs.MoveNext
    
14.         Next i
    
15.     End If
    
16.     Rs.Close
    
17.     Set Rs = Nothing  
    
18. End Function

复制代码

13601812106_01

roych 发表于 2012-9-27 22:23

谢谢你，正是我所需