If _UserPost = dr2("审核人角色") Then Dim dt As DataTable = DataTables("待办事项") Dim dr As DataRow = dt.SQLFind("ID = '" & r("ID") & "'")msgbox(dr("id") & "," & dr("_Identify"))
If dr IsNot Nothing Then '如果找到的话
Dim Result1 As DialogResult
Result1 = MessageBox.Show("作废后该订单将从代办事项中删除,你确定作废吗?!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result1 = DialogResult.Yes Then
dr.Delete
dt.Save
dr = dt.SQLFind("ID = '" & r("ID") & "'")
If dr IsNot Nothing Then
msgbox(dr("id") & "," & dr("_Identify")) 能不能弹出，内容是否和上次弹出一样
end if
加好友 
发短信
Post By：2020/5/26 13:51:00 [显示全部帖子]
