呃,分开写
全局代码
Public TopFrms As New List(Of Winform.Form)
'----------------------------
BeforeDeleteDataRow事件
TopFrms.Clear
For Each frm As WinForm.Form In Forms
If frm.Opened AndAlso frm.TopMost Then
frm.Topmost = False
TopFrms.Add(frm)
End If
Next
'-----------
DataRowDeleted事件
For Each frm As WinForm.Form In TopFrms
frm.Topmost = True
Next