主题：如何将a：b：c：d格式的数据转换成a因b被cd的格式呢？

Dim br As String
Dim Names As New List(Of object)
Dim Names2 As New List(Of object)
For Each r As Row In Tables("说明与报告")
    Names.clear
    For Each r1 As Col In Tables("说明与报告").Cols
        If r1.DataCol.Name="时间" Or r1.DataCol.Name="事项" Or r1.DataCol.Name="类别" Or r1.DataCol.Name="内容" Then
            If  r.isnull(r1.DataCol.Name)=False  Then
                'Names.add( r1.DataCol.Name & ":" &r(r1.DataCol.Name))
                Names.add(r(r1.DataCol.Name))
            End If
        End If
    Next
    If Names.count > 0
       ' Names2.add("[" & r.index+1 & "]:" & String.join("",Names.toarray))
        Names2.add(String.join(":",Names.toarray))
    End If
Next
MessageBox.show(String.join(";",Names2.toarray))

输出得到：

2022-12-11 00:00:00:喝酒:党纪处分:记大过;2023-12-12 00:00:00:打牌:党纪处分:警告

想实现为固定格式：

2022年12月11日因喝酒被党纪处分（记大过）；2022年12月12日因打牌被党纪处分（警告）