以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问哪里有错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90324)

--  作者:刘林
--  发布时间:2016/9/9 18:14:00
--  请问哪里有错
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

--  作者:狐狸爸爸
--  发布时间:2016/9/9 18:30:00
--  

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编辑过]

--  作者:狐狸爸爸
--  发布时间:2016/9/9 18:40:00
--  

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

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

 


--  作者:刘林
--  发布时间:2016/9/9 20:31:00
--  
我是用课程表生在窗口生成了个目录树,准备用目录树选到双击节次时,把学校名称,班级,节次,科目,等信息录入到代课表中,现在双击节次无录入动作,请问是什么原因,怎么办?
--  作者:狐狸爸爸
--  发布时间:2016/9/9 20:42:00
--  

你可以先调试一下:

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

 

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


--  作者:刘林
--  发布时间:2016/9/9 21:02:00
--  
搞定了,谢谢