DoubleClickRowHeader事件
vars("事件") = "dcrh"
Forms("BUG录入系统").Open()
vars("事件") = ""
AfterLoad事件
If vars("事件") = "" Then
'新增行等代码
End If