专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40724)

--  作者：草莓zhoujing
--  发布时间：2013/9/27 14:00:00
--  [求助]
这是什么问题？
此主题相关图片如下：qq图片20130927135809.jpg

--  作者：Bin
--  发布时间：2013/9/27 14:02:00
--
看下你LoadUserSEing的代码.

--  作者：草莓zhoujing
--  发布时间：2013/9/27 14:08:00
--
就是没看出哪有问题啊

--  作者：Bin
--  发布时间：2013/9/27 14:09:00
--
我的意思是给发出来给我看一下.

--  作者：草莓zhoujing
--  发布时间：2013/9/27 14:12:00
--

If CurrentTable.Name = "旅行社入园登记" Then
If User.Group = "班长" Then
DataTables("旅行社入园登记").AllowEdit = False
ElseIf User.Group = "科室" Then
DataTables("旅行社入园登记").AllowEdit = False
Else
DataTables("旅行社入园登记").AllowEdit = True
End If
Else
If User.Group = "售票员" Then
CurrentTable.AllowEdit = False
Else
CurrentTable.AllowEdit = True
End If
End If
呵呵，不好意思

--  作者：Bin
--  发布时间：2013/9/27 14:20:00
--
看起来也没问题啊,只能把文件发上来瞅瞅了.

--  作者：草莓zhoujing
--  发布时间：2013/9/27 14:57:00
--

If User.group = "售票员" Then
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Groups("Project").Visible =False
RibbonTabs("Project").Groups("Design").Visible =False
RibbonTabs("Project").Groups("Timers").Visible =False
RibbonTabs("Project").Groups("Watcher").Visible =False
RibbonTabs("Project").Groups("Users").Items("Logon").Visible =True
RibbonTabs("Project").Groups("Users").Items("Users").Visible =False
RibbonTabs("Other").Visible = False
RibbonTabs("Print").Visible = False
Else
RibbonTabs("Table").Visible = True
RibbonTabs("Project").Groups("Project").Visible =True
RibbonTabs("Project").Groups("Design").Visible =True
RibbonTabs("Project").Groups("Timers").Visible =True
RibbonTabs("Project").Groups("Watcher").Visible =True
RibbonTabs("Project").Groups("Users").Items("Users").Visible =True
RibbonTabs("Other").Visible = True
RibbonTabs("Print").Visible = True
End If
Dim StartDate As New Date(Date.Today.Year, Date.Today.Month, 1)
Dim EndDate As New Date(Date.Today.Year, Date.Today.Month, Date.DaysInMonth(Date.Today.Year, Date.Today.Month))
If User.Group = "售票员"
Dim fl As String = "售票员 = \'" & User.Name & "\'"
DataTables("旅行社入园登记").LoadFilter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#" & " And " & fl
Else
DataTables("旅行社入园登记").LoadFilter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
End If
DataTables("旅行社入园登记").Load()
If CurrentTable.Name = "旅行社入园登记" Then
If User.Group = "班长" Then
DataTables("旅行社入园登记").AllowEdit = False
ElseIf User.Group = "科室" Then
DataTables("旅行社入园登记").AllowEdit = False
Else
DataTables("旅行社入园登记").AllowEdit = True
End If
Else
If User.Group = "售票员" Then
CurrentTable.AllowEdit = False
Else
CurrentTable.AllowEdit = True
End If
End If
If CurrentTable.Name = "旅行社入园登记" Then
If User.Group = "售票员" Then
Forms("按钮").Controls("刷新").Visible = False
Forms("按钮").Controls("导入").Visible = False
Forms("按钮").Controls("旅行社汇总").Visible = False
Forms("按钮").Controls("客源地汇总").Visible = False
Forms("按钮").Controls("新增一行").Visible = True
Forms("按钮").Controls("新增多行").Visible = True
Forms("按钮").Controls("复制行").Visible = True
Forms("按钮").Controls("删除行").Visible = True
ElseIf User.Group = "班长" Then
Forms("按钮").Controls("刷新").Visible = True
Forms("按钮").Controls("导入").Visible = True
Forms("按钮").Controls("旅行社汇总").Visible = True
Forms("按钮").Controls("客源地汇总").Visible = True
Forms("按钮").Controls("新增一行").Visible = False
Forms("按钮").Controls("新增多行").Visible = False
Forms("按钮").Controls("复制行").Visible = False
Forms("按钮").Controls("删除行").Visible = False
ElseIf User.Group = "科室" Then
Forms("按钮").Controls("刷新").Visible = True
Forms("按钮").Controls("导入").Visible = False
Forms("按钮").Controls("旅行社汇总").Visible = True
Forms("按钮").Controls("客源地汇总").Visible = True
Forms("按钮").Controls("新增一行").Visible = False
Forms("按钮").Controls("新增多行").Visible = False
Forms("按钮").Controls("复制行").Visible = False
Forms("按钮").Controls("删除行").Visible = False
Else
Forms("按钮").Controls("刷新").Visible = True
Forms("按钮").Controls("导入").Visible = True
Forms("按钮").Controls("旅行社汇总").Visible = True
Forms("按钮").Controls("客源地汇总").Visible = True
Forms("按钮").Controls("新增一行").Visible = True
Forms("按钮").Controls("新增多行").Visible = True
Forms("按钮").Controls("复制行").Visible = True
Forms("按钮").Controls("删除行").Visible = True
End If
Else
If User.Group = "售票员" Then
Forms("按钮").Controls("刷新").Visible = True
Forms("按钮").Controls("导入").Visible = False
Forms("按钮").Controls("旅行社汇总").Visible = False
Forms("按钮").Controls("客源地汇总").Visible = False
Forms("按钮").Controls("新增一行").Visible = False
Forms("按钮").Controls("新增多行").Visible = False
Forms("按钮").Controls("复制行").Visible = False
Forms("按钮").Controls("删除行").Visible = False
ElseIf User.Group = "班长" Then
Forms("按钮").Controls("刷新").Visible = True
Forms("按钮").Controls("导入").Visible = False
Forms("按钮").Controls("旅行社汇总").Visible = False
Forms("按钮").Controls("客源地汇总").Visible = False
Forms("按钮").Controls("新增一行").Visible = True
Forms("按钮").Controls("新增多行").Visible = True
Forms("按钮").Controls("复制行").Visible = True
Forms("按钮").Controls("删除行").Visible = True
ElseIf User.Group = "科室" Then
Forms("按钮").Controls("刷新").Visible = True
Forms("按钮").Controls("导入").Visible = False
Forms("按钮").Controls("旅行社汇总").Visible = False
Forms("按钮").Controls("客源地汇总").Visible = False
Forms("按钮").Controls("新增一行").Visible = True
Forms("按钮").Controls("新增多行").Visible = True
Forms("按钮").Controls("复制行").Visible = True
Forms("按钮").Controls("删除行").Visible = True
Else
Forms("按钮").Controls("刷新").Visible = True
Forms("按钮").Controls("导入").Visible = True
Forms("按钮").Controls("旅行社汇总").Visible = True
Forms("按钮").Controls("客源地汇总").Visible = True
Forms("按钮").Controls("新增一行").Visible = True
Forms("按钮").Controls("新增多行").Visible = True
Forms("按钮").Controls("复制行").Visible = True
Forms("按钮").Controls("删除行").Visible = True
End If

--  作者：草莓zhoujing
--  发布时间：2013/9/27 14:58:00
--
就是项目打开的时候出错，但不影响使用，用户切换时也没问题

--  作者：Bin
--  发布时间：2013/9/27 14:59:00
--
如我6楼所说,文件发上来瞅瞅.

--  作者：草莓zhoujing
--  发布时间：2013/9/27 15:04:00
--
就是不太方便啊，有些数据在上面。