主题：权限设置自定义变更求助

Select Case e.Col.Name
    Case "学科编号", "入库数量", "入库单价", "录入员学科"
        If cstr(e.Row("学科编号")).Contains(User.Group) = False Then
            e.Cancel = True
        End If
End Select

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

 

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

 

End If

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