请问哪里有错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Node.Level = 0 Then '如果是顶层节点

Return '则返回

End If

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)

Dim r As Row = Tables("代课").Current

r("学校名称") = dr("学校名称")

r("班级") = dr("班级")

r("节次") = dr("节次")

r("科目") = dr("科目")

r("申请人") =dr("任课教师")

用目录树输入数据,提示错误所在事件：窗口,教务管理,TreeView1,NodeMouseDoubleClick

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

[此贴子已经被作者于2016/9/9 18:37:55编辑过]

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

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

我是用课程表生在窗口生成了个目录树,准备用目录树选到双击节次时,把学校名称,班级,节次,科目,等信息录入到代课表中,现在双击节次无录入动作,请问是什么原因,怎么办?

你可以先调试一下：

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

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

主题：请问哪里有错