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

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

共有3461人关注过本帖树形打印复制链接主题：双击树型菜单节点执行一个存储过程，光标如何变沙漏，表示系统忙状态

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编辑过]

iceblock

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

下一主题 >> << 上一主题

主题：双击树型菜单节点执行一个存储过程，光标如何变沙漏，表示系统忙状态