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

 登陆的时候，用一个变量记录授权用户的值，或者是，登陆的时候用一个变量记录那一行的值。

是不是这样写吗

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

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

StatusBar.Message2 = Str1

w = 存储公司名称的行

 根据user.name去查找对应的行

 http://www.foxtable.com/help/topics/0396.htm

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

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)

Dim dr As DataRow = DataTables("系统设置").Find("用户名 = '" & user.Name & "'")

If dr IsNot Nothing Then

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

    StatusBar.Message2 = Str1

End If