主题：求助：在状态栏显示授权用户名称，如XX公司，怎么设置，怎么写代码？

是不是这样写吗

dim r as Datarow= 存储公司名的行

Dim Str1 As String = "授权用户:" & r("公司名称") &  " 当前登录用户: " & User.Name & "     时间:" & Date.Now() & "  星期" & "日一二三四五六".Chars(Today.DayOfWeek)

StatusBar.Message2 = Str1

w = 存储公司名称的行

“公司名称”在“系统设置”表中，列名为“公司名称”，第一行

Dim dr As DataRow
dr = DataTables("系统设置").Find("user.name","公司名称"，0)
Output.Show("公司名称:" & dr("授权用户"))

Dim Str1 As String = "授权用户:" & dr("公司名称") &  " 当前登录用户: " & User.Name & "     时间:" & Date.Now() & "  星期" & "日一二三四五六".Chars(Today.DayOfWeek)