| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]新增行弹出错误窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105205) |
| -- 作者：elfing -- 发布时间：2017/8/14 11:17:00 -- [求助]新增行弹出错误窗口 今天新建了一个分页加载流水账的窗口，但是新增行的时候总是弹出窗口的Afterload错误，把相关代码发上来请教一下有什么问题吗？谢谢 If user.roles = "库存审核" Then Dim dt As Date = Date.Today.AddMonths(-2) DataTables("原材料").loadFilter = "日期 > \'" & dt & "\'" DataTables("原材料").load() Tables("原材料").OpenFilterTree("规格") ElseIf user.roles = "超级用户" Then Tables("原材料").OpenLoadTree("规格|日期 DESC",150,20,True) Else e.Cancel = True End If |
| -- 作者：有点甜 -- 发布时间：2017/8/14 11:40:00 -- 你这段代码写在什么事件？报错是什么事件？里面写了什么代码。 |
| -- 作者：elfing -- 发布时间：2017/8/14 14:04:00 -- 窗口 我新建了一个窗口用来控制加载树/筛选树（管理员使用加载树，录入员使用筛选树加载最近两个月的记录）的生成，在Afterload里设置了这些代码，出现运行错误提示的时候错误所在事件也是窗口的Afterload，详细错误信息是：未将对象引用设置到对象的实例。 窗口的Afterload代码为： If user.roles = "库存审核" Then Dim dt As Date = Date.Today.AddMonths(-2) DataTables("原材料").loadFilter = "日期 > \'" & dt & "\'" DataTables("原材料").load() Tables("原材料").OpenFilterTree("规格") ElseIf user.roles = "超级用户" Then Tables("原材料").OpenLoadTree("规格|日期 DESC",150,20,True) Else e.Cancel = True End If |
| -- 作者：有点甜 -- 发布时间：2017/8/14 14:06:00 -- 你给的代码没问题。你去看看是否为表格currentChanged事件的代码有问题？ |
| -- 作者：elfing -- 发布时间：2017/8/14 14:27:00 -- currentchanged没有设置代码，可以正常使用，就是新增行的时候会弹出错误窗口 |
| -- 作者：有点甜 -- 发布时间：2017/8/14 14:44:00 -- 以下是引用elfing在2017/8/14 14:27:00的发言：
currentchanged没有设置代码，可以正常使用，就是新增行的时候会弹出错误窗口
1、你新增行的事件写了什么代码？
2、你表属性各个事件分别写了什么代码？
3、如果实在找不出问题，做个例子发上来看看。 |