主题：请老师们帮忙分析下项目运行后为什么系统菜单感觉失灵一样 实在找不出原因啦

If e.Table.Name <> "卷宗封面" Then

    If e.IsFocusCell Then

        Dim filter As String = "表名 = '" & e.Table.Name & "' and 列名 = '" & e.Col.Name & "' and 停用 = false"

        Dim fdr As DataRow = DataTables("列项设置").Find(filter)

        If fdr IsNot Nothing Then

            'If fdr("多值字段") Then e.Col.DataCol.ExtendType = ExtendTypeEnum.Values

            e.Col.ComboList = fdr("下拉选项")

        End If

    End If

End If