Dim lngHeight As Long
Me.frm_Detail.Width = Me.InsideWidth - Me.frm_Detail.Left
lngHeight = Me.InsideHeight
Me.frm_Detail.Top = Me.从EXCEL导入数据.Top + Me.从EXCEL导入数据.Height + 250
Me.frm_Detail.Height = lngHeight - Me.frm_Detail.Top
Me.frm_Detail.Width = Me.InsideWidth - Me.frm_Detail.Left
lngHeight = Me.InsideHeight
Me.frm_Detail.Top = Me.从EXCEL导入数据.Top + Me.从EXCEL导入数据.Height + 250
Me.frm_Detail.Height = lngHeight - Me.frm_Detail.Top