目录树问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有15175人关注过本帖树形打印复制链接主题：目录树问题

czy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/25 15:14:00 [显示全部帖子]

剩余天数开始和结束应该是数值型列吧？
如果是，就去掉代码中的单引号。

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/25 16:11:00 [显示全部帖子]

以下是引用wqc360在2009-12-25 15:32:00的发言：

下载信息 [文件大小：340.0 KB 下载次数：1]
点击浏览该文件:管理项目12.table

原来我做测试的图号是用001、002，现我改成A、B、C，就不行了

呵呵，你的东东还有很长路要走。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.table

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/26 1:16:00 [显示全部帖子]

同样行的。

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

下一主题 >> << 上一主题

主题：目录树问题