看样子代码应该是没错的,错的话应该是红色的代码
For i As Integer=0 To s.length-1
Tables("System_Permission").rows(i)("Permission") = s(i)
If Tables("System_Permission").current("Permission") = 1 Then
For Each nd As WinForm.TreeNode In trv2.AllNodes
If nd.Text = Tables("System_Permission").rows(i)("Name") Then
nd.Checked = True
End If
Next
End If
Next