表属性afterScroll事件,写代码
If e.Table.Cols("tbltname").DroppedDown Then forms(e.Table.Cols("tbltname").DropForm).DropDownBox.CloseDropdownEnd If