C版请进：求代码，还是不行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → C版请进：求代码，还是不行

共有16169人关注过本帖树形打印复制链接主题：C版请进：求代码，还是不行

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/3/11 20:25:00 [显示全部帖子]

If e.Col.Name = "审核" Then
    If e.Row("审核") = False Then
        '……
    End If
End If

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/3/12 11:54:00 [显示全部帖子]

经测试下面的代码没有问题，这样看来是你全局变量赋值问题了。

If e.Col.Name = "审核" Then
    If e.Row("审核") = False Then
        If e.Table.name = "产品工艺录入_Table3" '如果操作窗口控件
            Dim r as Datarow = CurrentTable.Current.DataRow '指定窗口控件行
            Tables("产品工艺").ApplyFilter = False '主表取消筛选
            tables("产品工艺").Position = tables("产品工艺").FindRow(r) '指定窗口行与主表同步
            Tables("产品工艺").AllowEdit = True '主表取消锁定
            Tables("产品工艺").Current.Locked = False '取消锁定行
            Forms("车床产品工艺修改").open() '打开窗口
        End If
    End If
End If