主题：怎样增加一个用户拥有管理员一样的权限

做一个计划任务，写入代码　http://www.foxtable.com/help/topics/0657.htm

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "Class185" Then
        If user.group = "管理" Then
            frm.controls("btnGroup").Enabled = True
            frm.controls("btnRole").Enabled = True
            'Button2
            'btnUserTable
            'btnRole
            'btnExtProperty
            'btnDefault
            'lstUsers
            'btnGroup
            'btnEdit
            'btnDelete
            'btnAdd
            '
        End If
    End If
End If

这样写，可以增加用户等操作。但是增加的，不会显示出来，无法管理的。

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "Class185" Then
        If user.group = "管理" Then
            frm.controls("btnAdd").Enabled = True
            frm.controls("btnDelete").Enabled = True
            frm.controls("Button2").Enabled = True
            frm.controls("btnUserTable").Enabled = True
            frm.controls("btnRole").Enabled = True
            frm.controls("btnExtProperty").Enabled = True
            frm.controls("btnDefault").Enabled = True
            frm.controls("lstUsers").Enabled = True
            frm.controls("btnGroup").Enabled = True
            frm.controls("btnEdit").Enabled = True
           
           
        End If
    ElseIf frm.Name = "Class182" Then
        For Each c As object In frm.controls
            c.Enabled = True
        Next
    End If
End If

你还是自己做用户管理吧。

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

 那你自己做一个，写到系统SystemIdle事件

Dim str1 As String = ""
Dim t As Table = CurrentTable

Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "累计:" & t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "平均:" & t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "最大:" & t.Aggregate(AggregateEnum.Max, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "最小:" & t.Aggregate(AggregateEnum.Min, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "标准差:" & t.Aggregate(AggregateEnum.Std, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "总体标准差:" & t.Aggregate(AggregateEnum.StdPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "方差:" & t.Aggregate(AggregateEnum.Var, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "总体方差:" & t.Aggregate(AggregateEnum.VarPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

StatusBar.Message3 = str1

你做excel报表导出。

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