BUG录入表如果修改了某一行的值，那么同时也应该修改BUG研发表的对应的值（同一个BUG ID）
按照帮助，可是发现msgbox(1)，msgbox(2)，msgbox(3)执行后BUG研发表的值是改了，但是执行到msgbox(4)后就还原为之前的值了。这是什么原因？
BUG录入表的提交按钮click代码如下:
Dim s As String = "BUG_ID = '" & r("BUG_ID") & "'"
Dim fr As DataRow = DataTables("BUG研发表").SQLFind(s)
If fr Is Nothing Then
Dim dr As DataRow = DataTables("BUG研发表").AddNew()
dr("BUG_ID") = r("BUG_ID")
dr.save
MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG故障已通知研发,请静静的耐心等待牛人研发:" & r("模块维护人") & "解决!","博达BUG综合管理系统")
Else
r.Load()
LockBaseMainForm()
DataTables("BUG研发表").StopRedraw
msgbox(1)
DataTables("BUG研发表").RemoveFor(s)
msgbox(2)
DataTables("BUG研发表").Appendload(s)
msgbox(3)
DataTables("BUG研发表").ResumeRedraw
msgbox(4)
UnLockBaseMainForm()
MessageBox.show("BUG编号:" & r("BUG_ID") & "此BUG故障信息已修改,并通知研发,请静静的耐心等待研发" & r("模块维护人") & "解决!","博达BUG综合管理系统")
End If
msgbox(5)
DataTables("BUG研发表").Save()
DataTables("BUG录入表").Save()
加好友 
发短信
Post By：2015/9/19 18:35:00 [只看该作者]
