AfterEdit事件
Select Case e.Col.Name Case "年级","班级" If Forms("窗口1").Opened Then Forms("窗口1").Controls("RecordGrid1").Refresh End IfEnd Select