主题：[求助]有一些公告，指定部门的所有人员都要点击阅读，帮忙给点怎么搭建思路了

多值列（第一列）插入当前登录者名（不重复插入当前登录者名字），代码怎么修改呢？

Forms("窗口1").Controls("Label1").Text = User.Name
Dim str As String = e.Form.Controls("TextBox1").Text
str = str & "|" & Forms("窗口1").Controls("Label1").Text
e.Form.Controls("TextBox1").Text = str
e.Form.Controls("TextBox1").writeValue

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:f.foxdb

Forms("窗口1").Controls("Label1").Text = User.Name
Dim str As String = e.Form.Controls("TextBox1").Text
str = str & "|" & Forms("窗口1").Controls("Label1").Text
e.Form.Controls("TextBox1").Text = str
e.Form.Controls("TextBox1").writeValue

如果在我上面的基础上，怎么改呢？

老师给的代码，下面黄色部分怎样是动态的全部用户呢？

Dim s As String = User.Name
Dim str As String = "李四,张三,aa,ccee"
Dim ls As new List(of String)
ls.AddRange(str.split(","))
If ls.contains(s) = False Then
    ls.add(s)
End If
str = String.join(",", ls.ToArray)
msgbox(str)