小编JPC*_*JPC的帖子

我有一个挑战,我试图用类来解决.

我正在将事务记录到类中.

每笔交易都有以下内容:

• 名称
• 日期
• 时间
• 描述

但是,每个事务还可以与许多业务相关的联系人具有以下属性

• 业务联系人姓名
• 商业领域
• 比尔的百分比

有没有关于如何做到这一点的例子.

我尝试为业务联系人添加第二个类,然后在事务类中构建一个集合,所有这些都没有任何乐趣.

我也尝试将业务联系人详细信息作为交易类中的一个集合,也没有任何乐趣.

下面是我到目前为止,但我可能已经走下了一条死胡同,可能不值得尝试拯救代码

任何帮助非常感谢.

谢谢JP

测试子 - 尝试写入数据并将其取回

Sub test()

    Dim x As Integer
    Dim xx As Integer

    'code to populate some objects
    Dim clocklist As Collection
    Dim clock As classClocks
    Dim businesscontactlist As Collection
    Dim businesscontact As classBusinessContact

    Set businesscontactlist = New Collection
    Set clocklist = New Collection

    For x = 1 To 3
        Set clock = New classClocks
        clock.LawyerName = "lawyer " & Str(x)
        For xx …