以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树的复选框如何根据条件进行自动选择?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191662)

--  作者:hrw68529
--  发布时间:2024/4/29 11:04:00
--  [求助]目录树的复选框如何根据条件进行自动选择?
老师好,如下图,在生成的目录树中,在下边设置一个刷新按钮,如果面试序号列没有填写内容,则每个面试室复选框处于未选中状态,如果面试序号列填写有内容时,则自动选中复选框(目的是看到第几面试室的面试序号已填写),另一个方面,当面试序号不为空时,如果面试成绩也不为空,则复选框的第几面试室的字体颜色显示为红色(目的是看到第几面试室显示为红色时,就知道此面试室已输入成绩),刷新按钮的代码如何写,请专家指导,谢谢!
附图:
图片点击可在新窗口打开查看此主题相关图片如下:截图00.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/4/29 11:16:00
--  
是指这个面试室只要有一个面试序号没有添加,目录树就不勾选。还是说这个面试室所有面试序号都没有添加,才不勾选
--  作者:cd_tdh
--  发布时间:2024/4/29 11:16:00
--  
http://www.foxtable.com/webhelp/topics/1947.htm
http://www.foxtable.com/webhelp/topics/2302.htm
看懂代码,代码写到数据表中,反向用法,通过数据表的内容去给目录树赋值
[此贴子已经被作者于2024/4/29 11:32:54编辑过]

--  作者:hrw68529
--  发布时间:2024/4/29 11:20:00
--  
有点蓝老师,只要填写哪怕一个面试序号,就勾选

[此贴子已经被作者于2024/4/29 11:20:03编辑过]

--  作者:hrw68529
--  发布时间:2024/4/29 11:21:00
--  
面试序号列不为空,就勾选,面试成绩不为空,就显示为红色


--  作者:有点蓝
--  发布时间:2024/4/29 11:28:00
--  
目录树使用什么代码生成的?
--  作者:hrw68529
--  发布时间: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 

--  作者:hrw68529
--  发布时间:2024/4/29 11:46:00
--  
谢谢有点蓝,第向面试室显示红色,能不能?
--  作者:有点蓝
--  发布时间:2024/4/29 11:55:00
--  
设置目录树颜色,还是表格颜色?