测试messagebox.show(1)、messagebox.show(2)和messagebox.show(3)均弹出，但是实际上并没有实现删除行的效果。
Dim tbl As Table = Tables("查询资金支出_Table1")
If tbl.Current IsNot Nothing Then
If user.isrole("录入") And user.group=tbl.Current("承办部门") Then
Dim wz As Integer = Tables("资金使用申请表").FindRow(tbl.current.DataRow)
If wz >=0 Then
Tables("资金使用申请表").position= wz
Dim id1 As Integer = Tables("资金使用申请表").Current("_Identify")
Dim Filter As String = "[_Identify] = " & id1
Dim drs As DataRow=DataTables("资金使用申请表").sqlfind(Filter)
If drs IsNot Nothing '如果后台查询到相关的行
DataTables("资金使用申请表").StopRedraw()
LockBaseMainForm()
DataTables("资金使用申请表").RemoveFor(Filter)
DataTables("资金使用申请表").appendload(Filter)
UnLockBaseMainForm()
DataTables("资金使用申请表").ResumeRedraw()
Dim i=Tables("查询资金支出_Table1").findrow("_identify="& id1)
If i>=0 '刷新表后,重新定位窗口表的当前行
Tables("查询资金支出_Table1").position=i
Tables("资金使用申请表").position=i
End If
Else '如果后台没有查询到相关的行
messagebox.show("该项资金申请后台不存在!")
Return
End If
If tbl.Current.isnull("资金申请审核人")=False Or tbl.Current.isnull("支单审核人")=False Or tbl.Current.isnull("出纳")=False
messagebox.show("该项资金申请财务已审核,无法删除!")
Return
End If
If MessageBox.Show("是否删除该条资金申请【" & tbl.current("合同名称") & " 资金申请金额:" & tbl.current("资金使用申请金额") & "】", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=DialogResult.Yes
messagebox.show(1)
Tables("资金使用申请表").current.delete
messagebox.show(2)
Tables("资金使用申请表").save
messagebox.show(3)
End If
End If
Else '如果不是在操作本部门的数据,则提示无权操作
e.cancel=True
messagebox.show("您无权删除该条资金申请!")
End If
End If
加好友 
发短信
Post By：2018/7/5 13:55:00 [只看该作者]
