主题：卸载多个表

For Each dt As DataTable In DataTables
    If dt.name.Contains("a") = False Then
        DataTables.Unload(dt.name)
    End If
Next