Dim nms() As String = {"员工信息","员工证书","客户单位","联系人","帐户信息","公司招聘"}
For Each nm As String In nms
If DataTables.Contains(nm) = False Then
DataTables.Load(nm)
End If
Next