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