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


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

主题:错误提示 不懂求解

帅哥哟,离线,有人找我吗?
卟离卟弃
  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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/5 15:14:00 [只看该作者]

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


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


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

找不出什么原因

我把

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/5 21:49:00 [只看该作者]

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


 回到顶部