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


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

主题：[原创]
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/31 10:18:00 [只看该作者]

以下是引用爱相随在2014-7-31 10:16:00的发言：
不晓得是动到哪点了，原来的行序号是选择柜不见了。。。。。

 

这种代码，你加入即可

 

Tables("员工").ShowCheckBox = True

 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/7/31 11:06:00 [只看该作者]

谢谢老师。。。。培训班什么时候可以开课啊，还是搞个培训班吧
[此贴子已经被作者于2014-7-31 11:06:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/7/31 12:18:00 [只看该作者]

老是，以下代码是菜单按钮“数据上报”的代码，其意思是只有属于”录入人“才有上报的权限，且“KSMC、SQJE、SBSM”不为空时才可以上报，执行后，非录入人点击“上报按钮”时提示信息不能上报，但是录入人点击时，“SBSM”为空时也能上报，且上报人是administrator,请帮助修改，谢谢老师。。。
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If User.IsRole("录入人") Then
    If Tables("ZJJHB").current.IsNull("KSMC") And Tables("ZJJHB").current.IsNull("SQJE") And Tables("ZJJHB").current.IsNull("SBSM") Then
        MessageBox.Show("数据填列不完整,不允许上报,请检查!.")
    Else
        Tables("ZJJHB").Current("SBR") = UserName
        Tables("ZJJHB").Current.Save()
    End If
Else
    MessageBox.show("你非数据填报人,无上报权限!")
End If
Next
还有，以下三段代码如何组合成一段代码呢？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
For Each r As Row In Tables("ZJJHB").GetCheckedRows
 If User.IsRole("审核人1") Then
    If Tables("ZJJHB").current.IsNull("SBR") Then
        MessageBox.Show("不能审核未经上报的行.")
    Else
        Tables("ZJJHB").Current("SHR") = UserName
        Tables("ZJJHB").Current.Save()
    End If
Else
    MessageBox.show("你无审核权限!")
End If
Next
For Each r As Row In Tables("ZJJHB").GetCheckedRows
  If User.IsRole("审核人2") Then
    If Tables("ZJJHB").current.IsNull("SBR") Then
        MessageBox.Show("填报部门未审核,不能审核!.")
    Else
        Tables("ZJJHB").Current("SH") = UserName
        Tables("ZJJHB").Current.Save()
    End If
Else
    MessageBox.show("你无审核权限!")
End If
Next
For Each r As Row In Tables("ZJJHB").GetCheckedRows
 If User.IsRole("审核人3") Then
    If Tables("ZJJHB").current.IsNull("SBR") Then
        MessageBox.Show("总工办未审核通过,不能审核!.")
    Else
        Tables("ZJJHB").Current("FKBM") = UserName
        Tables("ZJJHB").Current.Save()
    End If
Else
    MessageBox.show("你无审核权限!")
End If
Next
[此贴子已经被作者于2014-7-31 14:00:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/7/31 12:58:00 [只看该作者]

请老师帮帮我呀，，，

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/31 14:12:00 [只看该作者]

 

[此贴子已经被作者于2014-7-31 14:13:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/31 14:14:00 [只看该作者]

If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows      
        If Tables("ZJJHB").current.IsNull("KSMC") OrElse Tables("ZJJHB").current.IsNull("SQJE") OrElse Tables("ZJJHB").current.IsNull("SBSM") Then
            MessageBox.Show("数据填列不完整,不允许上报,请检查!.")
        Else
            Tables("ZJJHB").Current("SBR") = User.Name
            Tables("ZJJHB").Current.Save()
        End If     
    Next
Else
    MessageBox.show("你非数据填报人,无上报权限!")
End If

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/31 14:16:00 [只看该作者]

If User.IsRole("审核人1") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
       
        If Tables("ZJJHB").current.IsNull("SBR") Then
            MessageBox.Show("不能审核未经上报的行.")
        Else
            Tables("ZJJHB").Current("SHR") = UserName
            Tables("ZJJHB").Current.Save()
        End If
       
    Next
Else
    MessageBox.show("你无审核权限!")
End If
If User.IsRole("审核人2") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
       
        If Tables("ZJJHB").current.IsNull("SBR") Then
            MessageBox.Show("填报部门未审核,不能审核!.")
        Else
            Tables("ZJJHB").Current("SH") = UserName
            Tables("ZJJHB").Current.Save()
        End If
       
    Next
Else
    MessageBox.show("你无审核权限!")
End If
If User.IsRole("审核人3") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
       
        If Tables("ZJJHB").current.IsNull("SBR") Then
            MessageBox.Show("总工办未审核通过,不能审核!.")
        Else
            Tables("ZJJHB").Current("FKBM") = UserName
            Tables("ZJJHB").Current.Save()
        End If
       
    Next
Else
    MessageBox.show("你无审核权限!")
End If

 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/7/31 15:22:00 [只看该作者]

谢谢老师的帮助，
点击按钮后，上报人、审核人等都还是ADMINSTRATOR，不是登录的用户名，还有就是，审核人1、审核人2、审核人3是根据登录人的情况来定的，如果登录的人是审核人1的，则只判断当前人是否具有上报部门审核的权限，如果有，则审核加上名字，如果没有则取消审核。同理，审核人2、3也是一样的。现在是要提示两次没有权限，就是连后面审核人2、3的权限也判断了。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/31 15:27:00 [只看该作者]

代码

 

If User.IsRole("审核人1") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
       
        If Tables("ZJJHB").current.IsNull("SBR") Then
            MessageBox.Show("不能审核未经上报的行.")
        Else
            Tables("ZJJHB").Current("SHR") = User.Name
            Tables("ZJJHB").Current.Save()
        End If
       
    Next
Else If User.IsRole("审核人2") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
       
        If Tables("ZJJHB").current.IsNull("SBR") Then
            MessageBox.Show("填报部门未审核,不能审核!.")
        Else
            Tables("ZJJHB").Current("SH") = User.Name
            Tables("ZJJHB").Current.Save()
        End If
       
    Next
Else If User.IsRole("审核人3") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
       
        If Tables("ZJJHB").current.IsNull("SBR") Then
            MessageBox.Show("总工办未审核通过,不能审核!.")
        Else
            Tables("ZJJHB").Current("FKBM") = User.Name
            Tables("ZJJHB").Current.Save()
        End If
       
    Next
Else
    MessageBox.show("你无审核权限!")
End If
 回到顶部
总数 19 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 4 次数据查询