Foxtable(狐表)用户栏目专家坐堂 → 错误提示 不懂求解


  共有11105人关注过本帖树形打印复制链接

主题:错误提示 不懂求解

帅哥哟,离线,有人找我吗?
卟离卟弃
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
错误提示 不懂求解  发帖心情 Post By:2011/5/5 13:37:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下: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

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
卟离卟弃
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
  发帖心情 Post By:2011/5/5 21:39:00 [显示全部帖子]

找不出什么原因

我把

 

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


 回到顶部