- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 筛选窗口设计求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104697)
-- 发布时间：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
-- 发布时间：2017/8/3 13:59:00
--
老师，求帮助
-- 发布时间：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
-- 发布时间：2017/8/3 14:10:00
--
具体出错例子发上来。
-- 发布时间：2017/8/3 14:26:00
--
请问例子怎么发？整个项目打包了发？
-- 发布时间：2017/8/3 14:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:维修表.zip |
-- 发布时间：2017/8/3 15:17:00
--
老师，这样发例子可以吗？
-- 发布时间：2017/8/3 15:43:00
--
自己顶下，老师求帮助
-- 发布时间：2017/8/3 15:48:00
--
你要把你的数据库文件 xxx.mdb 发上来才能测试。
你先试试把窗口【备用金收支明细表】的属性 自动打开 设置成 false
[此贴子已经被作者于2017/8/3 15:49:29编辑过]
-- 发布时间：2017/8/3 16:31:00
--
自动打开关闭后确实不会跳出那个了，当然进去后筛选窗口也没打开。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:新鼎晟数据库.zip |