专家坐堂-双击树型菜单节点执行一个存储过程，光标如何变沙漏，表示系统忙状态Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  双击树型菜单节点执行一个存储过程，光标如何变沙漏，表示系统忙状态  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144482)

--  作者：iceblock
--  发布时间：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编辑过]

--  作者：有点蓝
--  发布时间：2019/12/21 16:39:00
--
试试

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

执行正常返回没有提示错误就是成功的

--  作者：iceblock
--  发布时间：2019/12/21 16:50:00
--  application.doevents 还是不行

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

--  作者：有点蓝
--  发布时间：2019/12/21 16:55:00
--
我测试没有问题，上传实例说明