主题：记录查看的人员名字

老师，我有个通知公告表，有一列记录查看的人员姓名，查看一次就把查看人员的姓名记录进去，不重复记录，怎么实现？

参考代码

 

Dim str As String = "abc,123,张三"
Dim s As String = user.name
Dim ary = str.split(",")
If array.Indexof(ary, s) < 0 Then
    str &= "," & s
End If
msgbox(str.trim(","))

老师，这样没有把新的查看人增加进去呢。

Dim r As Row = Tables("通知公告").Current
Dim str As String = r("查看记录")
Dim s As String = _UserXingMing
Dim ary = str.split(",")
If array.Indexof(ary, s) < 0 Then
    str &= "," & s
End If
msgbox(str.trim(","))

Dim r As Row = Tables("通知公告").Current
Dim str As String = r("查看记录")
Dim s As String = _UserXingMing
Dim ary = str.split(",")
If array.Indexof(ary, s) < 0 Then
    str &= "," & s
End If
msgbox(str.trim(","))

r("查看记录") = str.trim(",")