以前没注意,测试了一下,集合中不能直接添加自定义类型数据?如何数据库表中的记录添加到集合中,只能定义类吗Option Explicit
Private Type Stu
    Num As Integer
    Name As String
End TypePrivate Sub Command1_Click()
    Dim pArray As New Collection
    Dim ss As Stu
    ss.Num = 11
    ss.Name = "sgaha"    pArray.Add ssEnd Sub