以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55262)
--  作者：爱相随
--  发布时间：2014/8/13 13:35:00
--  代码
老师，下面的代码把用户名改为用户角色，请问怎么改呢，谢谢

2、让不同用户查看不同的表

例如在项目事件AfteOpenProject事件中设置代码：

Select Case User.Name
    Case "张三","李四"
        Tables("表A").Visible = False
    Case "王五"
        Tables("表B").Visible = False
End Select
--  作者：有点甜
--  发布时间：2014/8/13 13:59:00
--  

Select Case User.Roles

    Case "张三","李四"
        Tables("表A").Visible = False
    Case "王五"
        Tables("表B").Visible = False
End Select
--  作者：爱相随
--  发布时间：2014/8/13 14:51:00
--  
再麻烦老师，下面代码红色地方有错，请帮助改一下，谢谢！！
For Each r As Row In Tables("XMXXB").GetCheckedRows
If User.IsRole("录入人") Then
    If Tables("XMXXB").DataRow("YSY") = True Then
        MessageBox.Show("项目名称已经使用,不能删除!.")
    Else
       Syscmd.Row.Delete()
    End If
  Else
      MessageBox.show("你没有删除档案的权限!")
End If
Next
--  作者：有点甜
--  发布时间：2014/8/13 14:53:00
--  
For Each r As Row In Tables("XMXXB").GetCheckedRows
If User.IsRole("录入人") Then
    If r("YSY") = True Then
        MessageBox.Show("项目名称已经使用,不能删除!.")
    Else
       Syscmd.Row.Delete()
    End If
  Else
      MessageBox.show("你没有删除档案的权限!")
End If
Next
--  作者：爱相随
--  发布时间：2014/8/13 14:54:00
--  
为什么呀。。。。
--  作者：Bin
--  发布时间：2014/8/13 14:57:00
--  
没有3楼这样的语法

如果你想获得当前行

Tables("XMXXB").Current("YSY")
--  作者：爱相随
--  发布时间：2014/8/13 15:41:00
--  
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.5.12.1
错误所在事件：表，XMJDB，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Column \'BQJD\' does not belong to table HTB.
老师，红色部分是什么意思啊，两段一样的代码，另一段却没提示信息。
--  作者：Bin
--  发布时间：2014/8/13 15:43:00
--  
HTB表没有 BQJD 这个列
--  作者：有点甜
--  发布时间：2014/8/13 15:43:00
--  
 什么意思？请贴出错的完整完整代码