表A_AfterEdit
If Forms("窗口1").Opened Then
Dim bctr = Forms("窗口1").Controls("RecordGrid1").BaseControl
bctr.AutoSizeRows
End If
表A_PositionChanged