主题：请问哪里有错

1、贴错误提示，应该详细一点，不要只贴一部分，方便别人定位错误。

2、可以掌握一下调试的方法：

http://www.foxtable.com/webhelp/scr/1485.htm

 

3、你的代码不严谨，我帮你改了一下：

 

If e.Node.Level >= 2 Then  '你的代码,至少要第三级别节点才可以执行,否则后面的vals(2)肯定出错.
    Dim Vals() As String = e.Node.FullPath.Split("\")
    Dim Filter As String = "[学校名称] = '" & Vals(0) & "' And [班级] = '" & Vals(1) & "'and [节次] = '" & vals(2) & "'"
    Dim dr As DataRow = DataTables("课程表").Find(Filter)
    If dr IsNot Nothing Then '要判断是否有符合条件的行,如果没有,下面的代码肯定出错.
        Dim r As Row = Tables("代课").Current
        r("学校名称") = dr("学校名称")
        r("班级") = dr("班级")
        r("节次") = dr("节次")
        r("科目") = dr("科目")
        r("申请人") =dr("任课教师")
    End If
End If

 

 

另外，如果你的目录树是根据数据表生成的，还有更简单可靠的方法：

http://www.foxtable.com/webhelp/scr/2690.htm

 

你可以先调试一下：

http://www.foxtable.com/webhelp/scr/1485.htm

 

看看代码有没有执行，搞不定就做个简单的例子发上来。