- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 大家帮我看下代码哪错了？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58824)
-- 发布时间：2014/10/24 14:20:00
-- 大家帮我看下代码哪错了？
此主题相关图片如下：1.jpg
这是生成后的系统，物料信息表中蔡静负责“仓位，物料代码，物料名称，规格型号”的行操作，其他的行由杨瑞芳操作，按了帮助里的文件做的，可是发布后的项目出来的就是空白的，大家帮忙看下哪儿做错了，谢谢~~此主题相关图片如下：2.jpg
上传项目
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:昆山永燃燃气设备有限公司管理系统.foxdb |
传外部数据源
-- 发布时间：2014/10/24 14:22:00
--
没有数据源
-- 发布时间：2014/10/24 14:22:00
--
数据库怎么传不上？
-- 发布时间：2014/10/24 14:24:00
--
压缩成zip文件再上传。
-- 发布时间：2014/10/24 14:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:databasewl.rar |
-- 发布时间：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\'" 的数据
-- 发布时间：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？
-- 发布时间：2014/10/24 15:22:00
--
对的
-- 发布时间：2014/10/24 15:29:00
--
以下是引用Bin在2014-10-24 15:22:00的发言：
对的
对的
我要全部行或列这两人操作人都能看到，只是无权限的一方不能编辑~~如果我进度后面加了A1\\B1...没有权限编辑那另一方不就看不见了么？
-- 发布时间：2014/10/24 15:30:00
--
看得到.不是有
Case Else
Filter = "" \'其他用户加载全部记录