我有这样的模板数据VBA类:Collection.item成员是一个集合。如何检索子集item元素
头文件((字符串1,字符串...) 1组头(字符串1,字符串...) 组1 /线路1(字符串1,字符串。 ...) group1/line2(string1,string2 ...) group2 header(string1,string2 ...) group2/line1(string1,string2 ...) group2/line2(string1,string2 ...)
注意:即使属于同一个“coloumn”(原始数据来自文本文件),属于组标题和组行的数据也是不同的类型
创建我的主类(填充集合)和数据类(填充项目:cData_Nomination),一切正常individualy但我需要创建:
-1文件集(我有数倍的文件),它存储 - 字段(文件头)和 - ×副集合(组)至极商店 ---字段(组报头) ---×副收集它们存储 ----字段(行数据)
在在线170.oDpo上的以下代码是组集合,每个数据都存储在具有属性Let(....)的集合上。 一切似乎都是商店!
Public Function NomCreate(m_sFilepath As String, m_objDataList() As String, m_clDpo As Collection) As cData_Nomination
10 On Error GoTo Err_Handler
Dim Functions As New cFunctions
Dim objResult As cData_Nomination
Dim objDate() As String
'Note : Init Var(s) /Object(s)
'----------------------------
20 Set objResult = New cData_Nomination
30 With objResult
40 .FileName = Functions.String_NZ(m_sFilepath)
50 .DataSource = Functions.String_NZ(m_objDataList(1))
60 .DelRes = Functions.String_NZ(m_objDataList(2))
70 .DateTime = Functions.Date_NZ(m_objDataList(4) & " " & m_objDataList(5) & ":00")
80 objDate = Split(Replace(m_objDataList(6), " - ", "-"), "-")
90 .DateTimeRange_Start = Functions.Date_NZ(objDate(0))
100 .DateTimeRange_End = Functions.Date_NZ(objDate(1))
110 .Sender = Functions.String_NZ(m_objDataList(7))
120 .Receiver = Functions.String_NZ(m_objDataList(8))
130 .GasPointName = Functions.String_NZ(m_objDataList(9))
140 .GasPointNameExternal = Functions.String_NZ(m_objDataList(10))
150 .Description = Functions.String_NZ(m_objDataList(11))
160 .DataType = Functions.String_NZ(m_objDataList(12))
170 .oDpo = Dpo
180 End With
Err_Exit:
'Note : Return Function value
190 Set NomCreate = objResult
'Note : Delete object
200 Set objResult = Nothing
'Note : Exit
210 Exit Function
Err_Handler:
'Note : Exit Function
220 GoTo Err_Exit
当我尝试读取数据我有一个问题,我无法访问通过属性获取集合.oDo(参见下面的代码)
'property belonging to class cData_Nomination
Public Property Let oDpo(ByVal oCollection As Collection)
Dim m_oDpo As New Collection
Set m_oDpo = oCollection
End Property
如何传递收集到的现有的项目集合(我可能错了)以及如何从主集合中检索我的子集合项目?
我希望这是明确的......
在此先感谢