Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有3689人关注过本帖树形打印复制链接

主题：[求助]
美女呀，离线，留言给我吧！
草莓zhoujing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：34 积分：338 威望：0 精华：0 注册：2013/9/5 7:47:00 		[求助]  发帖心情 Post By：2013/9/27 14:00:00 [显示全部帖子]

这是什么问题？
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20130927135809.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
草莓zhoujing
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：34 积分：338 威望：0 精华：0 注册：2013/9/5 7:47:00 		  发帖心情 Post By：2013/9/27 14:08:00 [显示全部帖子]

就是没看出哪有问题啊

 回到顶部
美女呀，离线，留言给我吧！
草莓zhoujing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：34 积分：338 威望：0 精华：0 注册：2013/9/5 7:47:00 		  发帖心情 Post By：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 = "售piao员" Then
        CurrentTable.AllowEdit = False
    Else
        CurrentTable.AllowEdit = True
    End If
End If
呵呵，不好意思
 回到顶部
美女呀，离线，留言给我吧！
草莓zhoujing
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：34 积分：338 威望：0 精华：0 注册：2013/9/5 7:47:00 		  发帖心情 Post By：2013/9/27 14:57:00 [显示全部帖子]

If User.group = "售piao员" 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 = "售piao员"
    Dim fl As String = "售piao员 = '" & 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 = "售piao员" Then
        CurrentTable.AllowEdit = False
    Else
        CurrentTable.AllowEdit = True
    End If
End If
If CurrentTable.Name = "旅行社入园登记" Then
    If User.Group = "售piao员" 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 = "售piao员" 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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：34 积分：338 威望：0 精华：0 注册：2013/9/5 7:47:00 		  发帖心情 Post By：2013/9/27 14:58:00 [显示全部帖子]

就是项目打开的时候出错，但不影响使用，用户切换时也没问题

 回到顶部
美女呀，离线，留言给我吧！
草莓zhoujing
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：34 积分：338 威望：0 精华：0 注册：2013/9/5 7:47:00 		  发帖心情 Post By：2013/9/27 15:04:00 [显示全部帖子]

就是不太方便啊，有些数据在上面。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询