Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选窗口设计求助


  共有1706人关注过本帖树形打印复制链接

主题：筛选窗口设计求助
帅哥哟，离线，有人找我吗？
ye8573
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：940 威望：0 精华：0 注册：2017/1/12 16:26:00 		筛选窗口设计求助  发帖心情 Post By：2017/8/3 12:59:00 [只看该作者]

老师，你好。我设计了一个筛选窗口，按月筛选，在设计可以正常预览和应用，但是重新打开项目后会显示下面的对话框，请问是啥问题？

.NET Framework 版本：2.0.50727.8745
Foxtable 版本：2017.7.31.1
错误所在事件：窗口,备用金收支明细表筛选,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。

下面是窗口AfterLoad内的代码，有哪里不对吗？

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("备用金收支明细表"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
dt = b.Build(True)
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Year As Integer = nd.DataRow("年")
    Dim Month As Integer = nd.DataRow("月")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "年"
        Case 1
            nd.Text = nd.text & "月"           
    End Select
Next
trv.Nodes.Insert("显示所有行",0)
trv.ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
ye8573
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：940 威望：0 精华：0 注册：2017/1/12 16:26:00 		  发帖心情 Post By：2017/8/3 13:59:00 [只看该作者]

老师，求帮助

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/3 14:09:00 [只看该作者]

改成这样，如果有问题，看看你AfterSelectNode事件代码

 

Dim b As New GroupTableBuilder("统计表1",DataTables("备用金收支明细表"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
b.Build
Dim dt As DataTable = datatables("统计表1")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Year As Integer = nd.DataRow("年")
    Dim Month As Integer = nd.DataRow("月")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "年"
        Case 1
            nd.Text = nd.text & "月"           
    End Select
Next
trv.Nodes.Insert("显示所有行",0)
trv.ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/3 14:10:00 [只看该作者]

 具体出错例子发上来。

 回到顶部
帅哥哟，离线，有人找我吗？
ye8573
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：940 威望：0 精华：0 注册：2017/1/12 16:26:00 		  发帖心情 Post By：2017/8/3 14:26:00 [只看该作者]

请问例子怎么发？整个项目打包了发？

 回到顶部
帅哥哟，离线，有人找我吗？
ye8573
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：940 威望：0 精华：0 注册：2017/1/12 16:26:00 		  发帖心情 Post By：2017/8/3 14:31:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:维修表.zip
 回到顶部
帅哥哟，离线，有人找我吗？
ye8573
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：940 威望：0 精华：0 注册：2017/1/12 16:26:00 		  发帖心情 Post By：2017/8/3 15:17:00 [只看该作者]

老师，这样发例子可以吗？

 回到顶部
帅哥哟，离线，有人找我吗？
ye8573
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：940 威望：0 精华：0 注册：2017/1/12 16:26:00 		  发帖心情 Post By：2017/8/3 15:43:00 [只看该作者]

自己顶下，老师求帮助

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/3 15:48:00 [只看该作者]

你要把你的数据库文件 xxx.mdb 发上来才能测试。

 

你先试试把窗口【备用金收支明细表】的属性 自动打开 设置成 false

[此贴子已经被作者于2017/8/3 15:49:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ye8573
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：940 威望：0 精华：0 注册：2017/1/12 16:26:00 		  发帖心情 Post By：2017/8/3 16:31:00 [只看该作者]

自动打开关闭后确实不会跳出那个了，当然进去后筛选窗口也没打开。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新鼎晟数据库.zip
文件发了，麻烦老师帮忙看下，谢谢啦
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 6 次数据查询