限制表的编辑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 限制表的编辑

共有2091人关注过本帖树形打印复制链接主题：限制表的编辑

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/9 9:58:00 [只看该作者]

If jinzhihangjianyidong=False Then
    If e.Col.Name="客户姓名" Then
        e.Cancel= True
        vars("客户资料入库窗体_状态") = "查询"
        Dim xm As String = Tables("pos机库存资料").Current("客户姓名")
        Tables("客户资料").Filter = "客户姓名 = '" & xm & "'"
        Forms("客户资料入库窗体").OpenTo("pos机库存资料")
    End If
End If

裴保民

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/10/9 10:10:00 [只看该作者]

在表的PrepareEdit事件中怎样写代码能实现当“pos机信息修改窗体”窗体已经打开，jinzhihangjianyidong=False时执行"机具ID"、"商户ID"、"商户名称" 、"客户ID" 、"客户姓名"都不能编辑,其他字段都能编辑，如果 jinzhihangjianyidong=True 除了"商户ID"、"商户名称" 可以编辑其他几个字段都不能编辑，如果“pos机信息修改窗体”未打开则执行除了"机具ID"、"商户名称" 、"客户ID" 、"客户姓名"不能编辑，其他各字段都可以编辑

我写了一下代码实现不了这个功能

If jinzhihangjianyidong=False Then

If e.Col.Name ="机具ID" Or e.Col.Name ="商户ID" Or e.Col.Name ="商户名称" Or e.Col.Name ="客户姓名" Or e.Col.Name ="客户ID" Then

e.Cancel=True

End If

Else

e.Cancel= False

End If

[此贴子已经被作者于2017/10/9 10:43:40编辑过]

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/9 10:44:00 [只看该作者]

If forms("pos机信息修改窗体").opened Then
    If jinzhihangjianyidong=False   Then
        If e.Col.Name ="机具ID" Or e.Col.Name ="商户ID" Or e.Col.Name ="商户名称" Or   e.Col.Name ="客户姓名" Or e.Col.Name ="客户ID" Then
            e.Cancel=True
        End If
    Else
        If e.Col.name = "商户ID" OrElse e.Col.name = "商户名称" Then
            e.Cancel= False
        Else
            e.Cancel= True
        End If
    End If
Else
    If e.Col.Name ="机具ID" Or e.Col.Name ="商户名称" Or   e.Col.Name ="客户姓名" Or e.Col.Name ="客户ID" Then
        e.Cancel=True
    End If
End If

[此贴子已经被作者于2017/10/9 11:58:04编辑过]