有点蓝老师，是这样的吗？请指教代码：For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Level = 1 Then
nd.Checked = (DataTables("笔试成绩").Find("天数='"& nd.ParentNode.text & "' and 面试室='" & nd.Text & "' and 面试序号 is not null") IsNot Nothing)
End If
Next
For Each nd1 As WinForm.TreeNode In trv.AllNodes
If nd1.Level = 1 Then
nd1.Checked = (DataTables("笔试成绩").Find("天数='"& nd1.ParentNode.text & "' and 面试室='" & nd1.Text & "' and 面试成绩 is not null") IsNot Nothing)
nd1.ForeColor = IIf(nd1.Checked, Color.Red, Color.Black)
End If
Next
加好友 
发短信
Post By：2024/4/29 17:23:00 [显示全部帖子]
