此主题相关图片如下：03.jpg

If User.Name = "普通" Then
    Forms("用户登录").Open()
    If _UserGroup = Nothing Then
    Else
        If _UserGroup = "业务部" Then
            DataTables("出货检验记录").LoadFilter = "录入人员 is Not Null"
            DataTables("出货检验记录").Load
            DataTables("定单合同").LoadFilter = "是否显示 = \'Y\'"
            DataTables("定单合同").Load
            DataTables("客户供应商资料").LoadFilter = "类别 = \'客户\'"
            DataTables("客户供应商资料").Load
            DataTables("成品打包信息").LoadFilter = "录入人员 is Not Null"
            DataTables("成品打包信息").Load
            DataTables("销售收款表").LoadFilter =  "是否显示 = \'Y\'"
            DataTables("销售收款表").Load
            DataTables("销售表").LoadFilter =  "是否显示 = \'Y\'"
            DataTables("销售表").Load
        ElseIf _UserGroup = "高管层" Or _UserGroup = "管理组" Then
            DataTables("出货检验记录").LoadFilter = "录入人员 is Not Null"
            DataTables("出货检验记录").Load
            DataTables("定单合同").LoadFilter = "录入人员 is Not Null"
            DataTables("定单合同").Load
            DataTables("客户供应商资料").LoadFilter = "类别 = \'客户\'"
            DataTables("客户供应商资料").Load
            DataTables("成品打包信息").LoadFilter = "录入人员 is Not Null"
            DataTables("成品打包信息").Load
            DataTables("销售收款表").LoadFilter = "录入人员 is Not Null"
            DataTables("销售收款表").Load
            DataTables("销售表").LoadFilter = "录入人员 is Not Null"
            DataTables("销售表").Load
        Else
            DataTables("出货检验记录").LoadFilter = "录入人员 is Not Null"
            DataTables("出货检验记录").Load
            DataTables("定单合同").LoadFilter = "是否显示 = \'Y\'"
            DataTables("定单合同").Load
            DataTables("客户供应商资料").LoadFilter = "类别 = \'客户\'"
            DataTables("客户供应商资料").Load
            DataTables("成品打包信息").LoadFilter = "录入人员 is Not Null"
            DataTables("成品打包信息").Load
            DataTables("销售收款表").LoadFilter =  "是否显示 = \'Y\'"
            DataTables("销售收款表").Load
            DataTables("销售表").LoadFilter =  "是否显示 = \'Y\'"
            DataTables("销售表").Load
        End If
    End If
End If

外部数据表，只有 定单合同表 不能加载数据，其它的表都能按条件 加载数据

认真检查过所有加载代码，未发现异常

逐行屏蔽排除，看看那个表的LoadFilter出问题，然后MessageBox显示一下这个表的LoadFilter，看看问题出在哪里。

找不出什么原因

我把

 DataTables("定单合同").LoadFilter = "是否显示 = \'Y\'"
            DataTables("定单合同").Load
这个代码删除掉后，就没有问题了

检查一下"是否显示"这一列的数据类型，如果不是字符型，肯定出错。