如何将组添加到ListView？

Question

作为ActiveX控件的菜鸟，我设法在MS-Access 2019表单上启动并运行了ListView（v6）。

我对实现它的方式并不熟悉，而且很笨拙，而且我真的不知道要使用什么文档（与很多选项，.NET CORE，.NET Framework 4.8等相混淆。）。如果有人可以将我指向网络上的资源，将不胜感激！

现在，我想将组添加到ListView，但不知道该怎么做。我发现了明显不是VBA的示例，并试图将其翻译，但是失败了。

同样使字体变大。

我的代码来设置示例数据并填充ListView：

Dim oListView As ListView 

Private Sub Form_Load()

  Dim oListItem As ListItem
  Dim n As Integer

  Set oListView = Me.lvwTest.Object
  oListView.Font.Size = 12

  For n = 1 To 4

    Set oListItem = oListView.ListItems.Add(, "a" & n, n)
    oListItem.ListSubItems.Add, , "Foo " & n
    oListItem.ListSubItems.Add, , "Bar " & n

  Next

End Sub

编辑

为什么ListView：

我有一个服务列表，它们链接到特定日期，例如

------------------------------------------
01/28/2020                            [-]
------------------------------------------ 
double room                    1   58.00 €
breakfast                      2   16.00 €
------------------------------------------
01/29/2020                            [-]
------------------------------------------
double room - tuesday special  1   52.00 €
breakfast                      2   16.00 €
dinner                         2   26.00 €
foo                            2   12.00 €
bar                            1    4.60 €
------------------------------------------
01/30/2020 etc. etc.                  [-]
------------------------------------------  

ListView能够右对齐€列，并且-我认为-添加了组（日期）。我想通过单击组标题来扩展/隐藏每个组的行。

Answer 1

对于分组，请忘记ListView并切换到MSHFlexGrid。注意“ H” ...代表层次结构，它可能是有史以来功能最强大的ActiveX控件。在此处查看演示：http://www.rogersaccesslibrary.com/forum/forum21&SID=5debzz2c87c6957859f13b1d2zcccfb4.html