Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树问题


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

主题：目录树问题
帅哥哟，离线，有人找我吗？
wqc360
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：790 积分：5695 威望：0 精华：0 注册：2009/4/17 18:42:00 		目录树问题  发帖心情 Post By：2009/12/25 12:12:00 [显示全部帖子]

生产目录树按钮代码：
Vars("Val") = Vars("Val") + 1
Select Case Vars("Val") Mod 4
    Case 1
        e.Form.Controls("TreeView1").BuildDataTree("生产工序", "", "工序_班组","剩余天数_开始","图号")
    Case  2
        e.Form.Controls("TreeView1").BuildDataTree("生产工序", "", "工序_班组","剩余天数_结束","图号")
    Case  3
        e.Form.Controls("TreeView1").BuildDataTree("生产工序", "", "工序_班组","图号")
    Case  0
        Tables("生产工序").ApplyFilter = False
End Select

NodeMouseClick

用鼠标单击节点后执行代码：


Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("生产工序").Filter = "  [工序_班组] = '" & Value(0) & "'   "
    Case 1
        Tables("生产工序").Filter = " [工序_班组] = '" & Value(0) & "' And [剩余天数_开始] = '" & Value(1) & "' or [工序_班组] = '" & Value(0) & "' And [剩余天数_结束] = '" & Value(1) & "' or [工序_班组] = '" & Value(0) & "' And [图号] = '" & Value(1) & "'  "
    Case 2
        Tables("生产工序").Filter = " [工序_班组] = '" & Value(0) & "' And [剩余天数_开始] = '" & Value(1) & "'and [图号] = '" & Value(2) & "'  or [工序_班组] = '" & Value(0) & "' And [剩余天数_结束] = '" & Value(1) & "'and [图号] = '" & Value(2) & "' "
End Select
红色这段不能执行，并提示错误：
图片点击可在新窗口打开查看此主题相关图片如下：未命名.bmp
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wqc360
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：790 积分：5695 威望：0 精华：0 注册：2009/4/17 18:42:00 		  发帖心情 Post By：2009/12/25 13:21:00 [显示全部帖子]

我试过，也是不行，只不过提示窗口不一样，不懂英文，不知是啥意思。图号是字符型，两个剩余天数是单精度小数型，我分别按类型去掉单引号，都不行。

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


加好友 发短信
等级：三尾狐 帖子：790 积分：5695 威望：0 精华：0 注册：2009/4/17 18:42:00 		  发帖心情 Post By：2009/12/25 15:27:00 [显示全部帖子]

奇怪，我用试用版做的示范又可以

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


加好友 发短信
等级：三尾狐 帖子：790 积分：5695 威望：0 精华：0 注册：2009/4/17 18:42:00 		  发帖心情 Post By：2009/12/25 15:32:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.table

原来我做测试的图号是用001、002，现我改成A、B、C，就不行了
 回到顶部
帅哥哟，离线，有人找我吗？
wqc360
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：790 积分：5695 威望：0 精华：0 注册：2009/4/17 18:42:00 		  发帖心情 Post By：2009/12/25 17:49:00 [显示全部帖子]

用按钮5和在一起还是不行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 7 次数据查询