以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗体中的目录树AfterSelectNode事件出错? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159001) |
||||
-- 作者:zsxx999ja -- 发布时间:2020/12/9 23:15:00 -- 窗体中的目录树AfterSelectNode事件出错?
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 DataTables("短信内容").LoadFilter = Filter |
||||
-- 作者:zsxx999ja -- 发布时间:2020/12/9 23:22:00 -- 原文件里有个《笔记与档案》的窗体,错在此窗体的筛选树的AfterSelectNode
|
||||
-- 作者:zsxx999ja -- 发布时间:2020/12/9 23:24:00 --
|
||||
-- 作者:有点蓝 -- 发布时间:2020/12/10 9:05:00 -- 数据库无法附加,请发数据库备份文件,或者转为内部表发上来 |
||||
-- 作者:zsxx999ja -- 发布时间:2020/12/10 18:05:00 -- 今天没有空,现在才来发文件。我现在是把数据库分离后和应用程序一起打包的,看可以不?
|
||||
-- 作者:有点蓝 -- 发布时间:2020/12/10 20:26:00 -- Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If dr Is Nothing Then Return Dim Filter As String …… |
||||
-- 作者:zsxx999ja -- 发布时间: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 End Select DataTables("短信内容").LoadFilter = Filter DataTables("短信内容").Load DataTables("督导组下校登记").LoadFilter = Filter下校 DataTables("督导组下校登记").Load DataTables("笔记本与档案").LoadFilter = Filter笔记与档案 DataTables("笔记本与档案").Load
|
||||
-- 作者:有点蓝 -- 发布时间: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 End Select DataTables("短信内容").LoadFilter = Filter DataTables("短信内容").Load DataTables("督导组下校登记").LoadFilter = Filter下校 DataTables("督导组下校登记").Load DataTables("笔记本与档案").LoadFilter = Filter笔记与档案 DataTables("笔记本与档案").Load
|
||||
-- 作者:zsxx999ja -- 发布时间:2020/12/12 11:10:00 -- 为什么变更变量设定的位置,这样就对了,两者区别在哪? |
||||
-- 作者:有点蓝 -- 发布时间:2020/12/12 11:19:00 -- 放到前面如果选择的是"显示所有行"肯定出错,因为"显示所有行"不存在e.Node.DataRow |