Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下拉窗体录入错误


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

主题：下拉窗体录入错误
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		下拉窗体录入错误  发帖心情 Post By：2018/1/26 16:28:00 [只看该作者]

在打开“预算资金申请单维护”窗体后，点击下拉组合框“项”后，相应的类款项不能筛选录入，并出现如下错误提示：
错误所在事件：窗口,下拉窗体,TreeView1,NodeMouseClick
详细错误信息：
未将对象引用设置到对象的实例。
我也检查了的。
请指教如何修改。谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

贴出你 NodeMouseClick 事件的代码。

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


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/1/26 18:35:00 [只看该作者]

If e.Node.Level = 2 Then '如果单击的是第三层节点
    Dim tr As Row = Tables("预算资金申请单").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("类") = dr("类")
    tr("款") = dr("款")
    tr("项") = dr("项")
    e.Form.DropDownBox.Value = tr("项")
    e.Form.DropDownBox.CloseDropdown()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

改成这样，看弹出什么

 

If e.Node.Level = 2 Then '如果单击的是第三层节点
    Dim tr As Row = Tables("预算资金申请单").Current
msgbox(tr is nothing)
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
msgbox(dr is nothing)
    tr("类") = dr("类")
    tr("款") = dr("款")
    tr("项") = dr("项")
    e.Form.DropDownBox.Value = tr("项")
    e.Form.DropDownBox.CloseDropdown()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/1/26 19:36:00 [只看该作者]

我是复制的递归函数来生成的筛选功能树（字段:父键，键，标题）

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


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/1/26 20:57:00 [只看该作者]

分别是：false，true

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


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/26 21:20:00 [只看该作者]

手工创建的树节点不会有e.Node.DataRow值：http://www.foxtable.com/webhelp/scr/2689.htm

生成数节点的时候使用主键给treenode.name命名，然后点击事件通过treenode.name到表格使用find查询DataRow
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/1/26 21:53:00 [只看该作者]

我还是看不懂，请帮忙把代码修改一下，谢谢！！

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


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/26 22:28:00 [只看该作者]

生成树的代码发上来

If e.Node.Level = 2 Then '如果单击的是第三层节点
    Dim tr As Row = Tables("预算资金申请单").Current
    Dim dr As DataRow = datatables("表A").Find（"主键='" & e.node.name & "'"）
if dr isnot nohting
    tr("类") = dr("类")
    tr("款") = dr("款")
    tr("项") = dr("项")
    e.Form.DropDownBox.Value = tr("项")
    e.Form.DropDownBox.CloseDropdown()
endif
End If
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/1/28 15:45:00 [只看该作者]

我想将“委托支付凭证”表中的大写金额，分拆成“千万、佰万、拾万、千元、佰元、拾元、元、角、分”，我在datacolchanged事件中利用chars试过，就是出现错误，请指教，谢谢！！

 回到顶部
总数 25 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询