参考以下代码
在窗口中新建一Label控件,在窗体afterload写入代码:
'Dim Names As String = "日一二三四五六"
'e.Form.Controls("Label1").text = "当前登录用户: " & User.Name & " , 今天是: " & Date.Today & " , 星期" & Names.Chars(Date.Today.DayOfWeek)
'也可以简写为
e.Form.Controls("Label1").text = "当前登录用户: " & User.Name & " , 今天是: " & Date.Today & " , 星期" & "日一二三四五六".Chars(Date.Today.DayOfWeek)
[此贴子已经被作者于2018/2/11 14:43:53编辑过]