[求助]拒绝重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]拒绝重复

共有8166人关注过本帖树形打印复制链接主题：[求助]拒绝重复

大红袍

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

加好友

发短信

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

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

你把按钮禁用不就行了？

e.Form.Controls("某某Button").Enabled = False

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

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

老师，我是说一次导入结束后不要再启动按钮了（有误操作），每次两千都条删除很麻烦。

大红袍

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

加好友

发短信

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

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

禁用按钮啊

e.Form.Controls("某某Button").Enabled = False

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/11/24 21:21:00 [只看该作者]

谢谢老师

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/11/25 10:16:00 [只看该作者]

此主题相关图片如下：图像 1.png

大红袍

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

加好友

发短信

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

Post By：2015/11/25 10:18:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Text = e.Form.Controls("TextBox1").Text Then
        trv.SelectedNode = nd
    End If
Next

大红袍

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

加好友

发短信

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

Post By：2015/11/25 10:19:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Text like "*" & e.Form.Controls("TextBox1").Text & "*" Then
        trv.SelectedNode = nd
    End If
Next