以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]窗体目录树tables问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30347)

--  作者:yiyinggeng
--  发布时间:2013/3/26 13:40:00
--  [讨论]窗体目录树tables问题

 

 

 

请教:设立一个窗口"人员查询",添加一个SplitContainer,左侧添加TreeView1,右侧添加一个Table1,table1绑定人员表,作为副本。想自动生成以分厂、工段的目录树查询。

 

根据帮助,以下内容为"人员查询_Table1"为"人员表"的时候可以,但改为"人员查询_Table1"时,提示没有"人员查询_Table1"的DataTables。

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("人员查询_Table1", "分厂|工段")
trv.Nodes.Insert("显示所有行",0)

 

 

Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        If e.Node.Text = "显示所有行" Then
            Tables("人员查询_Table1").Filter = ""
        Else
            Tables("人员查询_Table1").Filter = "[分厂] = \'" & Value(0) & "\'"
        End If
    Case 1
        Tables("人员查询_Table1").Filter = "[分厂] = \'" & Value(0) & "\' And [工段] = \'" & Value(1) & "\'"
    Case 2
        Tables("人员查询_Table1").Filter = "[分厂] = \'" & Value(0) & "\' And [工段] = \'" & Value(1) & "\' And [雇员] = \'" & Value(2) & "\'"
End Select


--  作者:狐狸爸爸
--  发布时间:2013/3/26 14:25:00
--  

说明要么窗口名不是"人员查询",要么Table控件民不是人员查询,如果两者都对,那么你可能没有设置为副本。

 

 不会有别的原因,你仔细检查一下。

 

实在不行,打开这个窗口,在命令窗口执行:

 

For each t As Table in Tables

    Output.show(t.name)

Next

 

看看都有些什么名称的Table


--  作者:yiyinggeng
--  发布时间:2013/3/26 14:54:00
--  
我已经查了有"人员查询_Table1"的。
--  作者:yiyinggeng
--  发布时间:2013/3/26 14:54:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工资核算.table


--  作者:yiyinggeng
--  发布时间:2013/3/26 14:55:00
--  

请帮忙看看,哪里的问题。人员管理里边,人员查询。


--  作者:yiyinggeng
--  发布时间:2013/3/26 14:59:00
--  
我看看啊
--  作者:yiyinggeng
--  发布时间:2013/3/26 15:00:00
--  

是的发错了。


--  作者:yiyinggeng
--  发布时间:2013/3/26 15:01:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工资核算01.foxdb

这次对了
--  作者:狐狸爸爸
--  发布时间:2013/3/26 15:03:00
--  
呵呵,你放上来的文件,姐妹有人员管理表,也没有人员查询窗口
--  作者:yiyinggeng
--  发布时间:2013/3/26 15:04:00
--  

发错了,重新发了,狐狸爸爸,请下载9楼的。