以前没注意,测试了一下,集合中不能直接添加自定义类型数据?如何数据库表中的记录添加到集合中,只能定义类吗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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货