摘要： PrivateSubShowList()Ifm_DataSourceIsNothingThenExitSubIfm_DataSource.State=0ThenExitSubIfm_DataSource.RecordCount=0ThenExitSub'将comboboxlocked,以避免combobox自动清空'txtData.Locked=TrueIfNotInitList()ThenExitSub'取得usercontrol的位置DimrcWndAsrectDimcxScreenAsLongDimcyScreenAsLongGetWindowRectUserCo 阅读全文