For Each s As String In "婚姻状况|家系称谓关系|科研课题|临床部门".Split("|") If DataTables.Contains(s) = False Then e.Form.Controls("Label1").Text = "正在加载表【" & s & "】...请稍候" Application.DoEvents() '即刻暂停代码的执行,重新绘制控件后,继续执行代码 DataTables.Load(s) End If Next e.Form.Close()