[求助]帮忙看下这个筛选树的代码谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]帮忙看下这个筛选树的代码谢谢

共有5274人关注过本帖树形打印复制链接主题：[求助]帮忙看下这个筛选树的代码谢谢

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

[求助]帮忙看下这个筛选树的代码谢谢 发帖心情

Post By：2013/5/30 11:38:00 [只看该作者]

在"生产进度表"里分别有两列"零件名称"和"工艺原料"调用筛选树窗口，但是现在情况是两列不管是在哪列里面操作都同时变发更改了……就像没做列判断一样！请帮忙看看哪里写错了！

If e.Node.Level = 0 OrElse e.Node.Level = 1 Then '如果是顶层节点
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String
Filter = "[库存类别] = '" & Vals(0) & "' And [品名] = '" & Vals(1) & "' And [零件号] = '" & Vals(2) & "'"
Dim dr As DataRow = DataTables("库存总表").Find(Filter)

For Each t As Col In Tables("生产进度表").Cols
    Dim r As Row = Tables("生产进度表").Current
    If t.Name = "零件名称" Then
        r("零件名称") = dr("品名")
        r("零件号") = dr("零件号")
    ElseIf t.Name = "工艺原料" Then
        r("工艺原料") = dr("零件号")
    End If
    e.Form.Close()
Next

[此贴子已经被作者于2013-5-30 11:39:55编辑过]

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/5/30 11:45:00 [只看该作者]

这段是干嘛呢

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/5/30 11:45:00 [只看该作者]

请问能不能上例子,有例子的话效果比较直观,也可以测试一下看看是什么情况. 比单单看着代码靠脑补速度快得多.

想要问题快速得到解决,只少要方便一下帮助你的人吧?

jiskin

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

加好友

发短信

等级：三尾狐帖子：714 积分：5207 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2013/5/30 11:49:00 [只看该作者]

以下是引用fjlclxj在2013-5-30 11:45:00的发言：
For Each t As Col In Tables("生产进度表").Cols
    Dim r As Row = Tables("生产进度表").Current
    If t.Name = "零件名称" Then
        r("零件名称") = dr("品名")
        r("零件号") = dr("零件号")
    ElseIf t.Name = "工艺原料" Then
        r("工艺原料") = dr("零件号")
    End If
    e.Form.Close()
Next

这段是干嘛呢

我只是想在同一个表里不同列调用这个筛选窗口做填写