以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  权限设置自定义变更求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86661)
--  作者：大红袍
--  发布时间：2016/6/22 17:56:00
--  

Select Case e.Col.Name
    Case "学科编号", "入库数量", "入库单价", "录入员学科"
        If cstr(e.Row("学科编号")).Contains(User.Group) = False Then
            e.Cancel = True
        End If
End Select
--  作者：大红袍
--  发布时间：2016/6/22 20:41:00
--  

你说的无效，不明白你什么意思，如果要判断是否为0为空，这样写

 

If e.Row.IsNull("入库数量") OrElse e.Row("入库数量") = 0 Then

 

End If
--  作者：大红袍
--  发布时间：2016/6/22 21:59:00
--  

BeforeSaveDataRow事件

 

If e.DataRow("入库数量") = 0 Then

    e.Cancel = true

End If

 

BeforeAddDataRow事件

 

If e.DataTable.Find("入库数量 = 0 or 入库数量 is null") isnot Nothing Then

    e.Cancel = true

End If

[此贴子已经被作者于2016/6/22 23:49:38编辑过]
--  作者：大红袍
--  发布时间：2016/6/22 23:49:00
--  

写错

 

BeforeAddDataRow事件

 

If e.DataTable.Find("入库数量 = 0 or 入库数量 is null") isnot Nothing Then

    e.Cancel = true

End If
--  作者：大红袍
--  发布时间：2016/6/23 9:24:00
--  

代码改成这样

 

Select Case e.Col.Name
    Case "初始数量","初始单价","录入员学科","盘点时间","存放位置"
        e.cancel = True
        If User.Group > "" Then
            If cstr(e.Row("学科编号")).Contains(User.Group) Then
                e.Cancel = False
            End If
        End If
End Select

 
--  作者：大红袍
--  发布时间：2016/6/23 10:11:00
--  

1、可以

 

2、把权限管理看完

 

http://www.foxtable.com/help/topics/2253.htm