Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击树型菜单节点执行一个存储过程，光标如何变沙漏，表示系统忙状态


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

主题：双击树型菜单节点执行一个存储过程，光标如何变沙漏，表示系统忙状态
帅哥哟，离线，有人找我吗？
iceblock
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：69 积分：544 威望：0 精华：0 注册：2017/5/19 12:36:00 		双击树型菜单节点执行一个存储过程，光标如何变沙漏，表示系统忙状态  发帖心情 Post By：2019/12/21 16:24:00 [只看该作者]

双击树型菜单节点执行一个SQL存储过程(运行时间较长)，光标如何变沙漏，表示系统忙状态
存储过程执行完成后，光标再变回箭头，提示“数据处理完成"或“计算失败"
光标改变的语句怎么写？
另外，如何确定存储过程是执行成功的？ 
注：e.Sender.Cursor = System.Windows.Forms.Cursors.WaitCursor不起作用
双击树菜单节点处理如下：
        If Response = 6 Then
            e.Sender.Cursor = System.Windows.Forms.Cursors.WaitCursor
            sql = e.Node.name
            Dim cmd As New SQLCommand
            'Dim dt As DataTable
            cmd.C
            cmd.CommandText = sql
            cmd.ExecuteNonQuery
            e.Sender.Cursor = System.Windows.Forms.Cursors.Arrow
        End If
        MsgBox ("成本计算:计划价计算完成!", vbInformation, "提示")

[此贴子已经被作者于2019/12/21 16:28:27编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106188 积分：540063 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/21 16:39:00 [只看该作者]

试试

If Response = 6 Then
    e.Sender.Cursor = System.Windows.Forms.Cursors.WaitCursor
    application.doevents
……

执行正常返回没有提示错误就是成功的
 回到顶部
帅哥哟，离线，有人找我吗？
iceblock
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：69 积分：544 威望：0 精华：0 注册：2017/5/19 12:36:00 		application.doevents 还是不行  发帖心情 Post By：2019/12/21 16:50:00 [只看该作者]

        Dim sql As String
        Dim Response As Integer
        Dim msg As String
        Dim box_title As String
        Dim response_msg As Integer
        
        box_title = "成本计算:计划价计算确认"
        msg = "确定进行成本计算:计划价计算吗?"
        
        Response = MsgBox(msg, vbYesNo, box_title)
        If Response = 7 Then
            Exit Sub
        End If
        
        If Response = 6 Then
            e.Sender.Cursor = System.Windows.Forms.Cursors.WaitCursor
            application.doevents
            sql = e.Node.name
            Dim cmd As New SQLCommand
            'Dim dt As DataTable
            cmd.C
            cmd.CommandText = sql
            cmd.ExecuteNonQuery
            e.Sender.Cursor = System.Windows.Forms.Cursors.Arrow
            application.doevents
        End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106188 积分：540063 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/21 16:55:00 [只看该作者]

我测试没有问题，上传实例说明

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