- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 目录树下拉复选的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68933)
-- 发布时间：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 |
-- 发布时间：2015/5/27 17:30:00
--
要为表赋值,不能为控件赋值
txb.Text=""
改为
tables("表名").current("绑定的列名")=""
-- 发布时间：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
-- 发布时间：2015/5/27 18:12:00
--
谢谢大红袍！
