主题：数据字典的过滤

写在prepareedit事件中吗？

每次我在这个事件中写代码，就发现系统显示不太正常。

Select Case e.Col.name

    Case "合同编号"

'

        If e.Row("委托人编码") Is Nothing Then

        Else

            Dim dmp As New TableDataMap

            dmp.DataTable = "合同清单" '指定数据来源表

            dmp.ValueCol = "编码" '指定取值列

            dmp.DisplayCol = "编码" '指定显示列

            '指定下拉列表时显示哪些列的数据

            dmp.ListCols = "编码,类型,单位名称,签订日,状态"

            dmp.Filter = "单位编码 = '" & e.Row("委托人编码") & "'"

            dmp.Sort = "签订日" '指定排序方式

            Tables("案件申报").Cols("合同编号").DataMap = dmp.CreateDataMap() '生成并设置DataMap

        End If

    Case Else

End Select

我换了种做法，在prepareedit事件中，加入以下代码：

Select Case e.Col.name

    Case "合同编号"

        If e.Row("委托人编码") Is Nothing  Then           

            e.Col.ComboList = ""

            e.cancel = True                         ‘不允许用户编辑

        ElseIf e.IsFocusCell   Then

            e.Col.ComboList = DataTables("合同清单").GetComboListString("编码","[单位编码] = '" & e.Row("委托人编码")  &  "'")

        End If

    Case Else

End Select

但是我的e.cancel = True好像没有起作用，还是可以通过键盘输入，这是什么原因？