以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  目录树的选定内容如何保存成一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32325)

--  作者:wuxianzuoji41
--  发布时间:2013/4/29 13:41:00
--  目录树的选定内容如何保存成一行

狐狸爸爸的通用目录树,多选了以后,点一下按钮,如何将选的节点的名字(注:非节点的表里的内容)保存在在一个单元格里。每保存一次增加一个行


--  作者:wuxianzuoji41
--  发布时间:2013/5/3 19:53:00
--  

谁指导一下呀

 


--  作者:狐狸爸爸
--  发布时间:2013/5/4 11:42:00
--  

设置在目录树的NodeMouseClick事件中:

 

Dim r AS Row = Tables("xxx").AddNew
r("某列") = e.node.Text


--  作者:wuxianzuoji41
--  发布时间:2013/5/10 13:11:00
--  
以下是引用狐狸爸爸在2013-5-4 11:42:00的发言:

设置在目录树的NodeMouseClick事件中:

 

Dim r AS Row = Tables("xxx").AddNew
r("某列") = e.node.Text

狐狸爸爸,我是在目录树旁边,放了一个按纽,点击一个保存按钮,然后想把所有的选中的节点的名字都保存在表新增的一行里。而不是点一下保存一个,因为可能有的点了又取消了,我需要把最终用户选了哪些节点保存下来。

麻烦在指导一下。


--  作者:wuxianzuoji41
--  发布时间:2013/5/10 13:49:00
--  
以下是引用wuxianzuoji41在2013-5-10 13:11:00的发言:

狐狸爸爸,我是在目录树旁边,放了一个按纽,点击一个保存按钮,然后想把所有的选中的节点的名字都保存在表新增的一行里。而不是点一下保存一个,因为可能有的点了又取消了,我需要把最终用户选了哪些节点保存下来。

麻烦在指导一下。

With Tables("名录搜索_tblSearchjindu")
.addnew()
.current("tijiaoriqi") = Date.Today
..Current("guanjianci")=e.Form.Controls("txtSearch").text
.
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If   nd.Checked = True Then
    .current("guanjianci")=nd.Text

    End If
Next
End With

我写的的怎么只能保存一个节点的名称,而不是所有的选中的节点的名称


--  作者:狐狸爸爸
--  发布时间:2013/5/11 10:27:00
--  
With Tables("名录搜索_tblSearchjindu")
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    Dim r As Row = .addnew()
    r("tijiaoriqi") = Date.Today
    r("guanjianci")=e.Form.Controls("txtSearch").text
    r("guanjianci")= trv.SelectedNode.Text
End With

--  作者:程兴刚
--  发布时间:2013/5/11 10:35:00
--  

With Tables("名录搜索_tblSearchjindu")
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    Dim r As Row = .addnew()
    r("tijiaoriqi") = Date.Today
    r("guanjianci")=e.Form.Controls("txtSearch").text
    For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.Checked = True Then
            If r.Isnull("guanjianci") = True
                r("guanjianci")= trv.SelectedNode.Text
            Else
                r("guanjianci") =  r("guanjianci") & "," & trv.SelectedNode.Text
            End If
        End If
    Next
End With