主题：[求助]数据加载条件

如果不选取乡名则加载全部数据代码该如何改？ 试了几次不成功，代码一错文件再也打不开，以前不会这样连改正的机会都没有了。

是发现这个问题了,如果出错就打不开文件,就是CTRL都没用

如果不选取乡名则加载全部数据代码该如何改？

If e.DataTableName = "总览" Then 
    If e.User.ExtendedValues("数据加载") > "" Then
         e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'"
    End If
End If

贺老师,为何我这样写会报错呢?
If e.DataTableName = "总览" AndAlso e.User.Name = "开发人员" Then
        e.Filter = "[_Identify] > 0 "
Else
e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'"
End If

报错是正常的，你这样的代码，对于非总揽表也只设置了条件，而这些表也不一定有乡名这一列的。

明白了

If e.DataTableName = "总览" Then 
    If e.User.ExtendedValues("数据加载") > "" Then
         e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'"
    End If
End If

      以上代码还有个缺限就是第一次登录窗口数据加载值出现空白（千万不能选）可以加载全部数据，一旦选中乡名（就不能出现空白）打开文件退出，再打开时登录窗口数据加载值出现乡名只能加载某个乡而不能出现空白可以加载全部数据。重新设置用户管理扩展属性（只要打开确定就可以什么也不要动）
      不能实现按需选择有点麻烦

等有时间我帮你试试看看

代码是灵活的,你可以加一个名为"全部"候选值，然后修改代码

If e.DataTableName = "总览" Then 
    If e.User.ExtendedValues("数据加载") > ""  AndAlso e.User.ExtendedValues("数据加载") <> "全部" Then
         e.Filter = "[乡名] = '" & e.User.ExtendedValues("数据加载") & "'"
    End If
End If