Foxtable(狐表)用户栏目专家坐堂 → 红袍老师,这段代码有问题,会不会产生冲突?


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

主题:红袍老师,这段代码有问题,会不会产生冲突?

帅哥哟,离线,有人找我吗?
scofields
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
红袍老师,这段代码有问题,会不会产生冲突?  发帖心情 Post By:2016/5/12 21:41:00 [显示全部帖子]

ApplicationMenu.visible = False
basemainform.icon = Nothing
basemainform.showicon = False
If User.Group <> "发运地磅" Then
    Tables("JHS").visible =True
Tables("FAJHB").visible =True
Else
    Tables("JHS").visible =False
    Tables("FAJHB").visible =True
End If
If User.Group ="发运地磅" Then
Forms("发运地磅").open()
ElseIf User.Group="销售开piao" 
forms("窗口2").open()
End If
CurrentTable.DataTable.LoadTop = "100 percent"
If User.Group = "销售开piao"  Then
    DataTables("JHS").LoadFilter =""
    DataTables("FAJHB").LoadFilter =""
Else
    DataTables("JHS").LoadFilter = "客户名 = '" & User.Name & "'"
    DataTables("FAJHB").LoadFilter = "客户名 = '" & User.Name & "'"
End If

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:564 积分:4561 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/13 9:37:00 [显示全部帖子]

主要是看代码有没有问题?

 回到顶部