主题：C版请进：求代码，还是不行

不知道什么东东“不行”？ 过程和结果要讲述清楚才好，下面只是猜测：

Dim r as Datarow = CurrentTable.Current.DataRow '指定窗口控件行  用具体的Tables("xxxx")吧
        Tables("产品工艺").ApplyFilter = False '主表取消筛选
        tables("产品工艺").Position = tables("产品工艺").FindRow(r) '指定窗口行与主表同步
        If e.Col.Name = "审核" Then
            If e.Row("审核") = False Then
                Tables("产品工艺").AllowEdit = True '主表取消锁定
                Tables("产品工艺").Current.Locked = False '取消锁定行
                Forms("车床产品工艺修改").open() '打开窗口
            else
                Return '否则不执行
            End If
        End If