选中目录树节点，选中当前行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 选中目录树节点，选中当前行

共有3780人关注过本帖树形打印复制链接主题：选中目录树节点，选中当前行

Hyphen

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/9/23 8:39:00 [只看该作者]

像7楼那样使用全局变量

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/23 9:14:00 [只看该作者]

以下是引用lovemaders在2015/9/22 23:13:00的发言：
那样的话我那个删除当前行提示窗口就不能当通用窗口用了。。。

删除按钮代码

If Tables("部门信息").current IsNot Nothing Then
    Forms("删除当前行提示窗口").show

    If vars("结果") = "是" Then

        Tables("部门信息").Current.Delete()
        Forms("窗口1").Controls("TreeVew1").SelectedNode.Delete

        Tables("部门信息").Save

    End If
End If

删除当前行提示窗口的,是按钮的代码
vars("结果") = "是"
e.Form.close

lovemaders

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00

谢谢

Post By：2015/9/23 17:58:00 [只看该作者]

谢谢大大不过大大这个方法，点了删除，还没点是的时候，002就已经删掉了，不知道有没有更好的方法。。。。要是没有更好的方法的话，我就用之前那个在是里面放代码吧，另外messagebox.show的外形不知道是否可以变更，

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/23 18:07:00 [只看该作者]

以下是引用lovemaders在2015/9/23 17:58:00的发言：
谢谢大大不过大大这个方法，点了删除，还没点是的时候，002就已经删掉了，不知道有没有更好的方法。。。。要是没有更好的方法的话，我就用之前那个在是里面放代码吧，另外messagebox.show的外形不知道是否可以变更，

你的删除当前行提示窗口必须是模式窗口

lovemaders

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00

谢谢大大，搞定了 发帖心情

Post By：2015/9/23 19:57:00 [只看该作者]

谢谢大大，搞定了

lovemaders

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00

又出BUG了 发帖心情

Post By：2015/9/23 20:22:00 [只看该作者]

这个删除直接点表的时候能删掉行但是会出现这个BUG，
图片点击可在新窗口打开查看

此主题相关图片如下：o)0}0%({1_3y`bjk%woz(ig.png

lovemaders

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00

删除的按钮代码如下 发帖心情

Post By：2015/9/23 20:24:00 [只看该作者]

If Tables("部门信息").current IsNot Nothing Then
    Forms("删除当前行提示窗口").show

    If vars("结果") = "是" Then

        Tables("部门信息").Current.Delete()
        Forms("部门信息").Controls("TreeView1").SelectedNode.Delete

    Else

DataTables("部门信息").rejectchanges
End If
End If