以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 目录树下拉复选的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68933)

--  作者:hotday1972
--  发布时间:2015/5/27 17:27:00
--  [求助] 目录树下拉复选的问题

为了实现如附件例子的下拉复选,并将选定的值存在表A,我设计了主窗口和一个下拉窗口,在下拉窗口放了可以复选的动态目录树,在确定button的click里添加如下代码(借用bin老师的一个例子),老是报错,师兄们帮忙看看,多谢!

 

 

Dim txb As WinForm.TextBox = Forms("主窗口").Controls("txb团队成员")
Dim trv As WinForm.TreeView = e.Form.Controls("trv选择成员")
txb.Text=e.Node.Text
For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
    txb.Text= txb.Text & "," & nd.text
Next
If e.Node.Checked=False Then
    txb.Text=""
End If

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树复选.table


--  作者:Bin
--  发布时间:2015/5/27 17:30:00
--  
要为表赋值,不能为控件赋值

 txb.Text=""

改为

tables("表名").current("绑定的列名")=""

--  作者:hotday1972
--  发布时间:2015/5/27 17:36:00
--  
不行啊,具体怎么改呢,我的例子传上了
--  作者:大红袍
--  发布时间:2015/5/27 18:01:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("trv选择成员")
Dim str As String = ""
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        If nd.Checked Then
            str &= "," & nd.text
        End If
    End If
Next
Tables("表A").current("团队成员")=str.Trim(",")
Forms("下拉窗口").close

--  作者:hotday1972
--  发布时间:2015/5/27 18:12:00
--  
谢谢大红袍!图片点击可在新窗口打开查看