Foxtable(狐表)用户栏目专家坐堂 → 被强制清空的问题?


  共有3971人关注过本帖树形打印复制链接

主题:被强制清空的问题?

帅哥哟,离线,有人找我吗?
wukang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
回复:(有点蓝)把1楼第二张图这个下拉窗口所有的事件...  发帖心情 Post By:2019/12/30 20:28:00 [显示全部帖子]

感觉也没错,但是就是被清空了
"生成岗位树"的Click事件
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView2")
tv.BuildTree("岗位维护", "公司名称|部门|岗位")

“确定”事件
Dim s As String = ""
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        s = s & "," & nd.Text
    End If
Next
e.Form.DropDownBox.Value = s.trim(",")
e.Form.DropDownBox.CloseDropdown

“整体窗口”事件
Dim s As String  = e.Form.DropDownBox.Value
Dim nms As new List(of String)
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
If s > "" Then
    nms.AddRange(s.Split(","))
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    nd.Checked = nms.Contains(nd.text)
Next
[此贴子已经被作者于2019/12/31 8:26:27编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wukang
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
回复:(有点蓝)岗位列是表达式列?  发帖心情 Post By:2019/12/30 20:51:00 [显示全部帖子]

就是很自然的字符型属性,不知道为何回报错,旁边的主责部门就不会报错。

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20191230204939.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wukang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
回复:(有点蓝)项目实例发上来看看  发帖心情 Post By:2019/12/31 8:24:00 [显示全部帖子]

附件已上传,请查收。
[此贴子已经被作者于2019/12/31 9:01:50编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wukang
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
回复:(有点蓝)就是表达式列来的呀,改为数据列:ht...  发帖心情 Post By:2019/12/31 9:03:00 [显示全部帖子]

好的,谢谢,我去修改一下
(不知道为何变成表达式了?)

 回到顶部