[浏览完整版]
标题：[求助]目录树的复选框如何根据条件进行自动选择?
1楼
hrw68529 发表于：2024/4/29 11:04:00老师好，如下图，在生成的目录树中，在下边设置一个刷新按钮，如果面试序号列没有填写内容，则每个面试室复选框处于未选中状态，如果面试序号列填写有内容时，则自动选中复选框（目的是看到第几面试室的面试序号已填写），另一个方面，当面试序号不为空时，如果面试成绩也不为空，则复选框的第几面试室的字体颜色显示为红色（目的是看到第几面试室显示为红色时，就知道此面试室已输入成绩），刷新按钮的代码如何写，请专家指导，谢谢！
附图：
此主题相关图片如下：截图00.jpg
此主题相关图片如下：截图00.jpg2楼
有点蓝 发表于：2024/4/29 11:16:00是指这个面试室只要有一个面试序号没有添加，目录树就不勾选。还是说这个面试室所有面试序号都没有添加，才不勾选
3楼
cd_tdh 发表于：2024/4/29 11:16:00http://www.foxtable.com/webhelp/topics/1947.htm
[此贴子已经被作者于2024/4/29 11:32:54编辑过]
4楼
hrw68529 发表于：2024/4/29 11:20:00有点蓝老师，只要填写哪怕一个面试序号，就勾选
[此贴子已经被作者于2024/4/29 11:20:03编辑过]
5楼
hrw68529 发表于：2024/4/29 11:21:00面试序号列不为空，就勾选，面试成绩不为空，就显示为红色
6楼
有点蓝 发表于：2024/4/29 11:28:00目录树使用什么代码生成的？
7楼
hrw68529 发表于：2024/4/29 11:29:00Dim 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
8楼
有点蓝 发表于：2024/4/29 11:42:00Dim 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
9楼
hrw68529 发表于：2024/4/29 11:46:00谢谢有点蓝，第向面试室显示红色，能不能？
10楼
有点蓝 发表于：2024/4/29 11:55:00设置目录树颜色，还是表格颜色？