窗体中的目录树AfterSelectNode事件出错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗体中的目录树AfterSelectNode事件出错？

共有3041人关注过本帖树形打印复制链接主题：窗体中的目录树AfterSelectNode事件出错？

zsxx999ja

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

窗体中的目录树AfterSelectNode事件出错？ 发帖心情

Post By：2020/12/9 23:15:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：错图.jpg

左边的目录树同时对窗体中的三个表进行动态加载，这三个表用sqltable类型时不出错，改成副本表后出现如上错误。检查里面引用的表名没有错，真不知是哪个对象引用错了，请帮助！

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Filter下校 As String
Dim Filter笔记与档案 As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Day As String = dr("日")
Select Case e.Node.Level
    Case 0
        Filter ="Year(通知时间) = " & Year
        Filter下校 ="Year(出差起日期) = " & Year
        Filter笔记与档案 ="Year(出差时间) = " & Year
    Case 1
        Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month
        Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month
        Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month
    Case 2
        Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month & " And day(通知时间) =" & Day
        Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month & " And day(出差起日期) =" & Day
        Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month & " And day(出差时间) =" & Day
End Select

DataTables("短信内容").LoadFilter = Filter
DataTables("短信内容").Load
DataTables("督导组下校登记").LoadFilter = Filter下校
DataTables("督导组下校登记").Load
DataTables("笔记本与档案").LoadFilter = Filter笔记与档案
DataTables("笔记本与档案").Load

zsxx999ja

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/9 23:22:00 [只看该作者]

原文件里有个《笔记与档案》的窗体，错在此窗体的筛选树的AfterSelectNode

zsxx999ja

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/9 23:24:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ddzcw.rar

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/10 9:05:00 [只看该作者]

数据库无法附加，请发数据库备份文件，或者转为内部表发上来

zsxx999ja

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/10 18:05:00 [只看该作者]

今天没有空，现在才来发文件。我现在是把数据库分离后和应用程序一起打包的，看可以不？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ddzcw.rar

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/10 20:26:00 [只看该作者]

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If dr Is Nothing Then Return

Dim Filter As String

……

zsxx999ja

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/12 10:33:00 [只看该作者]

点击“显示所有行” 数据加载无反应，测试没有获取到值，MessageBox.show(e.Sender.SelectedNode.Name)

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If dr Is Nothing Then Return

Dim Filter As String

Dim Filter下校 As String

Dim Filter笔记与档案 As String

Dim Year As Integer = dr("年")

Dim Month As Integer = dr("月")

Dim Day As String = dr("日")

Select Case e.Node.Name

Case "显示所有行"

MessageBox.show(e.Sender.SelectedNode.Name)

Filter =""

Filter下校 =""

Filter笔记与档案 =""

Case Else

Select Case e.Node.Level

Case 0

Filter ="Year(通知时间) = " & Year

Filter下校 ="Year(出差起日期) = " & Year

Filter笔记与档案 ="Year(出差时间) = " & Year

Case 1

Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month

Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month

Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month

Case 2

Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month & " And day(通知时间) =" & Day

Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month & " And day(出差起日期) =" & Day

Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month & " And day(出差时间) =" & Day

End Select

DataTables("短信内容").LoadFilter = Filter

DataTables("短信内容").Load

DataTables("督导组下校登记").LoadFilter = Filter下校

DataTables("督导组下校登记").Load

DataTables("笔记本与档案").LoadFilter = Filter笔记与档案

DataTables("笔记本与档案").Load

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/12 10:43:00 [只看该作者]

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

Dim Filter As String

Dim Filter下校 As String

Dim Filter笔记与档案 As String

Select Case e.Node.Name

Case "显示所有行"

MessageBox.show(e.Sender.SelectedNode.Name)

Filter =""

Filter下校 =""

Filter笔记与档案 =""

Case Else

Dim Year As Integer = dr("年")

Dim Month As Integer = dr("月")

Dim Day As String = dr("日")

Select Case e.Node.Level

Case 0

Filter ="Year(通知时间) = " & Year

Filter下校 ="Year(出差起日期) = " & Year

Filter笔记与档案 ="Year(出差时间) = " & Year

Case 1

Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month

Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month

Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month

Case 2

Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month & " And day(通知时间) =" & Day

Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month & " And day(出差起日期) =" & Day

Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month & " And day(出差时间) =" & Day

End Select

DataTables("短信内容").LoadFilter = Filter

DataTables("短信内容").Load

DataTables("督导组下校登记").LoadFilter = Filter下校

DataTables("督导组下校登记").Load

DataTables("笔记本与档案").LoadFilter = Filter笔记与档案

DataTables("笔记本与档案").Load

zsxx999ja

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/12 11:10:00 [只看该作者]

为什么变更变量设定的位置，这样就对了，两者区别在哪？

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/12 11:19:00 [只看该作者]

放到前面如果选择的是"显示所有行"肯定出错，因为"显示所有行"不存在e.Node.DataRow

下一主题 >> << 上一主题

总数 28 1 2 3 下一页

主题：窗体中的目录树AfterSelectNode事件出错？