| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150700) |
| -- 作者：miaoqingqing -- 发布时间：2020/6/5 10:09:00 -- [求助]报错 .NET Framework 版本：4.0.30319.34209 Foxtable 版本：2020.5.29.8 错误所在事件：窗口,主窗口,TreeView1,NodeMouseClick 详细错误信息： 此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
|
| -- 作者：miaoqingqing -- 发布时间：2020/6/5 10:18:00 -- 目录树是单选，点击代码如下，哪里有问题？求助 Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If e.Node.Text <> "显示所有行" Then Select Case e.Node.Level Case 0 Filter = "[省市项目名称] = \'" & dr("省市项目名称") & "\'" Case 1 Filter = "[省市项目名称] = \'" & dr("省市项目名称") & "\' And [考核板块] = \'" & dr("考核板块") & "\'" Case 2 Filter = "[省市项目名称] = \'" & dr("省市项目名称") & "\' And [考核板块] = \'" & dr("考核板块") & "\' And [成果状态] = \'" & dr("成果状态") & "\'" Case 3 Filter = "[省市项目名称] = \'" & dr("省市项目名称") & "\' And [考核板块] = \'" & dr("考核板块") & "\' And [成果状态] = \'" & dr("成果状态") & "\' And [设计类别] = \'" & dr("设计类别") & "\'" End Select End If Tables("成果台账").Filter = Filter Tables("成果台账").Sort = "设计类别,正式成果名称" |
| -- 作者：有点蓝 -- 发布时间：2020/6/5 10:38:00 -- 这个目录树是怎么生成的？ |
| -- 作者：miaoqingqing -- 发布时间：2020/6/5 14:34:00 -- If _UserGroup = "文员" Or _UserGroup = "合同专员" Then DataTables("成果台账").LoadFilter = "" Else DataTables("成果台账").LoadFilter = "(片区负责人 like \'%" & _Username & "%\' or 项目负责人 like \'%" & _Username & "%\' or 专项负责 like \'%" & _Username & "%\' or 行临时可见 like \'%" & _Username & "%\' or 软装项目负责人 like \'%" & _Username & "%\' or 方案设计完成时间节点_负责人 like \'%" & _Username & "%\' or 深化设计完成时间节点_负责人 like \'%" & _Username & "%\' or 软装设计摆场完成节点_负责人 like \'%" & _Username & "%\') and [成果状态] = \'正在处理\'" End If DataTables("成果台账").Load() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("成果台账", "省市项目名称|考核板块|成果状态|设计类别") Tables("成果台账").Sort = "设计类别,省市项目名称,片区负责人,项目负责人,正式成果名称" With Tables("计划台账") If .Current IsNot Nothing Then Tables("计划台账").Sort = "创建日期 DESC,创建时间 DESC" Tables("计划台账").Position = 0 \'光标在第1行 End If End With
|
| -- 作者：有点蓝 -- 发布时间：2020/6/5 14:54:00 -- 是不是生成目录树后，后来又重新加载过这个表的数据了？如果是这样每次重新加载后，或者删除行后都需要重新生成目录树的 |
| -- 作者：miaoqingqing -- 发布时间：2020/6/5 15:04:00 -- 回复：（有点蓝）是不是生成目录树后，后来又重新加载... 就是生成目录树后，打开系统菜单时，切换目录树节点时报错，报错可以修复不报错嘛？ |
| -- 作者：有点蓝 -- 发布时间：2020/6/5 15:19:00 -- 打开系统菜单 -- 指的什么？是不是又重新加载过这个表的数据了 |