我想增加几个用户拥有管理员一样的权限 现代码这样写 也只能修改密码

ElseIf User.Group = "管理" Then
    \' RibbonTabs("Table").Visible = True
    \' RibbonTabs("Project").Visible = True
    \'RibbonTabs("部门工作").Groups("调度部").Visible= False
    \' RibbonTabs("部门工作").Groups("调度部").Visible = False
    RibbonTabs("日常工作").Groups("快速统计").Visible= False
    RibbonTabs("日常工作").Groups("窗口").Visible = False
    RibbonTabs("数据表").Groups("表相关").Visible= False
    RibbonTabs("数据表").Groups("列相关").Visible = False
    RibbonTabs("用户").Groups("用户").Items("用户管理").Enabled = True

做一个计划任务，写入代码　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("btnEdi").Enabled = True
           
           
        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