Foxtable(狐表) → 用户栏目 → 专家坐堂 → 大家帮我看下代码哪错了？


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

主题：大家帮我看下代码哪错了？
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00 		大家帮我看下代码哪错了？  发帖心情 Post By：2014/10/24 14:20:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
这是生成后的系统，物料信息表中蔡静负责“仓位，物料代码，物料名称，规格型号”的行操作，其他的行由杨瑞芳操作，按了帮助里的文件做的，可是发布后的项目出来的就是空白的，大家帮忙看下哪儿做错了，谢谢~~
图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看

上传项目

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:昆山永燃燃气设备有限公司管理系统.foxdb

传外部数据源

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/10/24 14:22:00 [只看该作者]

没有数据源

 回到顶部
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00 		  发帖心情 Post By：2014/10/24 14:22:00 [只看该作者]

数据库怎么传不上？

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


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/10/24 14:24:00 [只看该作者]

压缩成zip文件再上传。
 回到顶部
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00 		  发帖心情 Post By：2014/10/24 14:26:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:databasewl.rar
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/10/24 14:37:00 [只看该作者]

你设置了代码

Dim Filter As String
Dim bj As String
Select Case User.Name
    Case "蔡静"
        Filter = "进度 = '1A'" '进度一开始
    Case "杨瑞芳"
        Filter = "进度 = '1B' Or 进度 = '2A'" '进度一结束或进度二开始
        bj = "2A"
    'Case "王五"
        'Filter = "进度 = '2B' Or 进度 = '3A'" '进度二结束或进度三开始
        'bj = "3A"
    Case Else
        Filter = "" '其他用户加载全部记录
End Select
DataTables("物料信息").LoadFilter = Filter
DataTables("物料信息").Load()

但是你表中根本没有符合数据  "进度 = '1A'" 的数据
 回到顶部
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00 		  发帖心情 Post By：2014/10/24 15:22:00 [只看该作者]

以下是引用Bin在2014-10-24 14:37:00的发言：
你设置了代码

Dim Filter As String
Dim bj As String
Select Case User.Name
    Case "蔡静"
        Filter = "进度 = '1A'" '进度一开始
    Case "杨瑞芳"
        Filter = "进度 = '1B' Or 进度 = '2A'" '进度一结束或进度二开始
        bj = "2A"
    'Case "王五"
        'Filter = "进度 = '2B' Or 进度 = '3A'" '进度二结束或进度三开始
        'bj = "3A"
    Case Else
        Filter = "" '其他用户加载全部记录
End Select
DataTables("物料信息").LoadFilter = Filter
DataTables("物料信息").Load()

但是你表中根本没有符合数据  "进度 = '1A'" 的数据

这句是我从帮助里抄到的代码，也不懂啥意思，但我看了帮助的文件，他们这样就行了，是不是我要在进度内加1A？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/10/24 15:22:00 [只看该作者]

对的

 回到顶部
美女呀，离线，留言给我吧！
漂亮美眉vszh
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：895 积分：8102 威望：0 精华：0 注册：2013/5/30 11:27:00 		  发帖心情 Post By：2014/10/24 15:29:00 [只看该作者]

以下是引用Bin在2014-10-24 15:22:00的发言：
对的

我要全部行或列这两人操作人都能看到，只是无权限的一方不能编辑~~如果我进度后面加了A1\B1...没有权限编辑那另一方不就看不见了么？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/10/24 15:30:00 [只看该作者]

看得到.不是有
Case Else
        Filter = "" '其他用户加载全部记录
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询