主题：锁定单元格或者列

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

'If e.Col.Name = "日期分组" AndAlso  e.Row.Table.Cols("分组列").IsDate = False Then
    'e.Col.AllowEdit = False
'Else
    'e.Col.AllowEdit = True
'End If

 

老师，上图中，如何分组列不是日期列，则日期分组是不可用的，这是在哪个事件里面设置呀？我在perpareEdit设置，一下就把列锁住，都不对了

就是当分组列不是日期类型时，日期分组那一列就不可用？该咋设置呀？

老师，不行，当分组列不是日期类型时，依然可以编辑

 

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

贴出代码，或者实例说明。

老师，不好意思啊

 

 

Dim nums1() As String={"sex","age","birth", _
                     "edu","workdate","politicalStatus", _
                     "retiredPost","title","leaOrRetire", _
                    "retireTime","proTecPost","partyTime", _
                     "organName","partyStanding","retiredDep"}
Dim nums2()  As String={"性别","年龄","出生年月", _
                     "学历","参加工作时间","政治面貌", _
                     "离退休职务","享受待遇","状态", _
                    "离退休时间","专业技术职务","入党时间", _
                     "单位","党龄","部门"}

If e.Col.name = "日期分组" Then
    Dim t As Table = Tables("person")
    Dim Index As Integer=Array.Indexof(nums2,e.Row.DataRow("分组列"))
    If t.cols(nums1(Index)).IsDate  Then
           e.cancel = True
     End If
End If

 

 

这个是代码，您先看着，我去做实例

老师，我做的例子中可以，我再想想看我的代码问题在那里了谢谢老师

If t.cols(nums1(Index)).IsDate = false Then 

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

 

代码：preprareEdit事件

 

If e.Col.name = "日期分组"
    If  e.Row("分组列") IsNot Nothing  AndAlso Tables("person").cols(e.Row("分组列")).IsDate = False Then e.cancel = True
End If

 

老师， 我写完prepareEdit事件后，就提示那个错误，红色是我加的，没啥效果，我觉得用数组对应不方便容易出错就改成数据字典了

If e.Col.name = "日期分组"
    If  e.Row("分组列") <> Nothing  AndAlso Tables("person").cols(e.Row("分组列")).IsDate = False Then e.cancel = True
End If