以文本方式查看主题 - 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团队成员")
|
||||
-- 作者: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 -- 谢谢大红袍! |