- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 被强制清空的问题？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144777)
-- 发布时间：2019/12/29 18:45:00
-- 被强制清空的问题？
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2019/12/29 20:04:00
--
把这个窗口所有的事件代码都发上来看看
-- 发布时间：2019/12/29 22:34:00
-- 回复：（有点蓝）把这个窗口所有的事件代码都发上来看...
1
[此贴子已经被作者于2020/1/1 16:30:19编辑过]
-- 发布时间：2019/12/29 22:52:00
--
把1楼第二张图这个下拉窗口所有的事件代码都发上来看看
-- 发布时间：2019/12/30 20:28:00
-- 回复：（有点蓝）把1楼第二张图这个下拉窗口所有的事件...
感觉也没错，但是就是被清空了
"生成岗位树"的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编辑过]
-- 发布时间：2019/12/30 20:32:00
--
岗位列是表达式列？
-- 发布时间：2019/12/30 20:51:00
-- 回复：（有点蓝）岗位列是表达式列？
就是很自然的字符型属性，不知道为何回报错，旁边的主责部门就不会报错。
此主题相关图片如下：微信截图_20191230204939.png
-- 发布时间：2019/12/30 21:25:00
--
项目实例发上来看看
-- 发布时间：2019/12/31 8:24:00
-- 回复：（有点蓝）项目实例发上来看看
附件已上传，请查收。
[此贴子已经被作者于2019/12/31 9:01:50编辑过]
-- 发布时间：2019/12/31 8:39:00
--
就是表达式列来的呀，改为数据列：http://www.foxtable.com/webhelp/topics/2494.htm
此主题相关图片如下：1.png