以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]目录树复选框取值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53837) |
||||
-- 作者:ybmjy -- 发布时间:2014/7/16 15:35:00 -- [求助]目录树复选框取值问题
如图,如何在选中产品PD02的时候,将PD02下所有被选中客户的名字显示到文本框中,并用逗号隔开
[此贴子已经被作者于2014-7-16 15:44:33编辑过]
|
||||
-- 作者:ybmjy -- 发布时间:2014/7/16 15:46:00 -- 自己顶 |
||||
-- 作者:ybmjy -- 发布时间:2014/7/16 15:55:00 -- 请高手些帮帮忙 |
||||
-- 作者:Bin -- 发布时间:2014/7/16 15:59:00 -- .
|
||||
-- 作者:y2287958 -- 发布时间:2014/7/16 15:59:00 -- 试试这个: Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1") Dim s As String If e.Node.Checked = True For Each nd As WinForm.TreeNode In e.Node.AllNodes nd.Checked = e.Node.Checked s += "," & nd.Name Next tx.Text = s.TrimStart(",") End If |
||||
-- 作者:ybmjy -- 发布时间:2014/7/16 16:10:00 -- 谢谢两位 |