以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助!筛选窗口中使用目录树时会同时改变表信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14070)

--  作者:lixuefei
--  发布时间:2011/11/7 11:49:00
--  求助!筛选窗口中使用目录树时会同时改变表信息

求助!筛选窗口中使用目录树时会同时改变表信息;

 

我做个2个窗口,分别是录入窗口(可以填表和改表)和筛选窗口(不能修改表中信息);

 

筛选窗口:

ComboBox类型 不会改变表的信息;

而DropDownBox类型,并且下拉窗口中嵌入了一个“目录树”,选择树中内容时会同时改变表的内容;

 

以下是DropDownBox的详细属性

类型:DropDownBox

绑定到:    [空]

初始值:    [空]

只读:Default    [若是 Ture,那么在筛选窗口中无法点开下拉框]

下拉窗口:目录树 - 资产分类

允许直接输入:True

-------------------------------

目录树 - 资产分类  详细信息

类型:DropDownForm

名称:TreeView1

 

Afterload

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("固定资产","资产分类|资产名称")

 

 

 

 If e.Node.Level = 1 Then

    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("固定资产").Current
    Dim dr As DataRow = DataTables("固定资产").Find("资产分类 = \'" & ps(0) & "\' And 资产名称 = \'" & ps(1) & "\'")
    If dr IsNot Nothing Then

        tr("资产分类") = dr("资产分类")
        tr("资产名称") = dr("资产名称")
        e.Form.DropDownBox.Value = tr("资产名称") 

    End If
    e.Form.DropDownBox.CloseDropdown()
End If

 

 

 

[此贴子已经被作者于2011-11-7 12:56:05编辑过]

--  作者:yangming
--  发布时间:2011/11/7 14:03:00
--  
请楼主上传狐表相关文件看看
--  作者:狐狸爸爸
--  发布时间:2011/11/7 15:15:00
--  

是的,最好做个简单的例子上传,并说明问题。


--  作者:lixuefei
--  发布时间:2011/11/29 11:06:00
--  

比如第一行的内容是:

 

资产分类 | 资产名称 | 资产编号 | 责任人 | 所属部门

办公用品     签字笔        224         王五        人力

 

 

我把鼠标放在第1行,表的内容如上所示,当打开“筛选窗口”,将资产分类 选择为“电脑设备”时,“办公用品”会变为“电脑设备”;(不影响筛选结果)

 

注:筛选窗口的“资产分类”用的是目录树功能做的,  有这样的问题。

      如果是非目录树的,如“资产编号”,不会修改表的内容;


--  作者:狐狸爸爸
--  发布时间:2011/11/29 11:24:00
--  
做个简单例子传上来,然后说明问题。