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


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

主题:[原创]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/30 17:27:00 [显示全部帖子]

以下是引用爱相随在2014-7-30 17:08:00的发言:
老师,麻烦帮我写一下代码,就是“资金计划表”里关于数据上报,审核,和取消,如果下一步操作了,则不能返回上一步,是在表事件里写还是菜单事件里写代码?

 

你可以判断表的JD列所在的进度,从而判断能不能做对应的操作即可。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部