- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]目录树的复选框如何根据条件进行自动选择? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191662)
-- 发布时间：2024/4/29 11:04:00
-- [求助]目录树的复选框如何根据条件进行自动选择?
老师好，如下图，在生成的目录树中，在下边设置一个刷新按钮，如果面试序号列没有填写内容，则每个面试室复选框处于未选中状态，如果面试序号列填写有内容时，则自动选中复选框（目的是看到第几面试室的面试序号已填写），另一个方面，当面试序号不为空时，如果面试成绩也不为空，则复选框的第几面试室的字体颜色显示为红色（目的是看到第几面试室显示为红色时，就知道此面试室已输入成绩），刷新按钮的代码如何写，请专家指导，谢谢！
附图：
此主题相关图片如下：截图00.jpg
此主题相关图片如下：截图00.jpg-- 发布时间：2024/4/29 11:16:00
--
是指这个面试室只要有一个面试序号没有添加，目录树就不勾选。还是说这个面试室所有面试序号都没有添加，才不勾选
-- 发布时间：2024/4/29 11:16:00
--
http://www.foxtable.com/webhelp/topics/1947.htm
[此贴子已经被作者于2024/4/29 11:32:54编辑过]
-- 发布时间：2024/4/29 11:20:00
--
有点蓝老师，只要填写哪怕一个面试序号，就勾选
[此贴子已经被作者于2024/4/29 11:20:03编辑过]
-- 发布时间：2024/4/29 11:21:00
--
面试序号列不为空，就勾选，面试成绩不为空，就显示为红色
-- 发布时间：2024/4/29 11:28:00
--
目录树使用什么代码生成的？
-- 发布时间：2024/4/29 11:29:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("笔试成绩", "天数|面试室|分组")
trv.Nodes.Insert("显示所有行",0)
Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
If e.Node.Text = "显示所有行" Then
Tables("号对人_号对人").Filter = ""
Else
Tables("号对人_号对人").Filter = "[天数] = \'" & Value(0) & "\'"
End If
Case 1
Tables("号对人_号对人").Filter = "[天数] = \'" & Value(0) & "\' And [面试室] = \'" & Value(1) & "\'"
Case 2
Tables("号对人_号对人").Filter = "[天数] = \'" & Value(0) & "\' And [面试室] = \'" & Value(1) & "\' And [分组] = \'" & Value(2) & "\'"
End Select
-- 发布时间：2024/4/29 11:42:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("笔试成绩", "天数|面试室|分组")
trv.Nodes.Insert("显示所有行", 0)
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Level = 1 Then
nd.Checked = (DataTables("某某表").Find("面试室=\'" & nd.Text & "\' and 面试序号 is not null") IsNot Nothing)
End If
Next
-- 发布时间：2024/4/29 11:46:00
--
谢谢有点蓝，第向面试室显示红色，能不能？
-- 发布时间：2024/4/29 11:55:00
--
设置目录树颜色，还是表格颜色？