主题：[求助]单击逻辑列其值不变

有一逻辑列单击“钩”不上，后在代码窗口中加入Output.show(1)到Output.show(3)，打开命令窗口只再单击逻辑列，命令窗口只显示1和3，很显然无论怎样单击单元格，逻辑列值均为“False"，请高手帮忙。对了，以前我没有升级到2012最新版时是正常的。
此主题相关图片如下：命令窗口.png


此主题相关图片如下：逻辑列.png

以下是d "prepereedit"事件中的代码。

Output.Clear()

If e.Col.Name = "分部审批" Then
   
    If User.Group <> "管理组"  Then  '只有管理组成员才能审批
        e.Cancel = True
    End If
    Output.Show(1)
    If e.Row("分部审批") = True Then '如果此行已经审批了,则禁止修改
        e.Cancel = False
        e.Row("审批时间") =  Date.Today.Now()
        e.Row("审批人") = User.Name
        Output.Show(2)
    Else
        e.Row("审批时间") = Nothing
        e.Row("审批人") = " "
        Output.Show(3)
    End If
End If
e.Cancel = True

 楼主，这个很明显了吧。

 e.Cancel = True 以后，这一列就不能被编辑了，你取出最后一行试一下……

谢谢！的确是那个问题。但问题的关键是这表我采用独占式编辑，有专门的输入窗口，必须把审批后的各行设置成不能编辑，有什么解决办法没有？

 那我就不懂了，你说你有一个专门的输入窗口，那就不能改变值么？楼主的疑问我还未明白。

意思是经逻辑列“审批”后的就不能编辑。那个专门的输入窗口是要靠“DoubleClick”触发的，只有表格设置成不能编辑才能“DoubleClick”，否则一单击就直接进入单元格，无法加载“输入窗口”了。

我也没有看明白你的问题。

你最好提炼出问题，做成一个简单的例子后发上来，然后说明你需要的是什么，设置了什么代码，现在卡在那里。

此主题相关图片如下：表.png

就这样一个表，采用窗口独占方式录入。希望审批后的行，除审批逻辑列单元格外均不能修改。审批列只有授权人才能修改，审批后在后面单元格添加上审批时间和审批人（这个现在没问题了）。代码如下：

以下是d "prepereedit"事件中的代码。

Output.Clear()

If e.Col.Name = "分部审批" Then

If User.Group <> "管理组" Then '只有管理组成员才能审批
e.Cancel = True
End If
Output.Show(1)
If e.Row("分部审批") = True Then '如果此行已经审批了,则禁止修改
e.Cancel = False
e.Row("审批时间") = Date.Today.Now()
e.Row("审批人") = User.Name
Output.Show(2)
Else
e.Row("审批时间") = Nothing
e.Row("审批人") = " "
Output.Show(3)
End If
End If
e.Cancel = True

 

 

现在的问题是，如果不加最后的e.Cancel = True录入窗口又不能加载。加了这条语句，逻辑列又无法更改。以下是在DoubleClick事件中的代码：

e.Row.Load() '重新加载此行
If e.Row.IsNull("编辑者") = False AndAlso e.Row("编辑者")  <>  User.Name Then '判断是否有人编辑
    MessageBox.Show(e.Row("编辑者") & "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    e.Row("编辑者") = User.Name '设置编辑者列为当前用户
    e.Row.Save() '并立即保存
    If e.Row("分部审批") = False Then
        Forms("加班统计").Open() '打开编辑窗口
    End If
End If

PrePareEdit事件改为：

 

If e.Col.Name = "分部审批" Then
    If User.Group <> "管理组" Then '只有管理组成员才能审批
        e.Cancel = True
    Else
        If e.Row("分部审批") = True Then '如果此行已经审批了,则禁止修改
            e.Cancel = False
            e.Row("审批时间") = Date.Today.Now()
            e.Row("审批人") = User.Name
        Else
            e.Row("审批时间") = Nothing
            e.Row("审批人") = " "
        End If
    End If
Else
    e.Cancel = True
End If

谢谢狐爸，搞定！