有点蓝老师,是这样的吗?请指教代码: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