请注意以下几点：

• 这里给出的JSON表示一个对象数组，这些对象都具有相同的属性。它可以被看作是一个 * 记录 * 或 * 行 * 的数组。
• 您需要反序列化此JSON，在DataGridView中显示结果，并允许用户对数据进行筛选和排序。

您当前正在将此JSON反序列化为一个类对象的简单集合，这是非常好的。如果您想过滤和排序此集合，可能会变得稍微复杂一些，因为简单的List<T>本身不支持它，BindingList也不支持。
您应该在处理对象列表的类中实现IBindingListView接口，最有可能的是在基类（当前的Users类）中实现INotifyPropertyChanged接口。
或者使用ORM / Mini-ORM。
有一个已经构建（并测试）的类型，它已经实现了所有这些特性，即DataTable类。
正如前面提到的，由于JSON实际上是一个Table（records 的数组），因此将其反序列化为DataTable非常简单。

Dim dt = JsonConvert.DeserializeObject(Of DataTable)(json)

DataTable类别已经允许筛选（设定其DefaultView.RowFilter属性）和排序（设定其DefaultView.Sort属性）。
尽管如此，我还是建议使用BindingSource作为DataTable和UI之间的 * 中介 *。
这个工具非常有用，因为它提供了对数据源进行筛选和排序的常用方法，前提是数据源实际上具有这些功能。
使用BindingSource时，无论数据源是什么，您始终使用相同的方法。
它还生成一些有用的事件，如ListChanged、AddingNew、CurrentChanged事件等。
ListChanged事件也提供指定变更类型的参数。
使用BindingSource，如果数据已更改，则序列化回JSON：

[BindingSource].EndEdit()
Dim json = JsonConvert.SerializeObject([BindingSource].DataSource, Formatting.Indented)

在范例程式码中，会使用这些对象（请参阅视觉化范例）：

• UsersSource：绑定源对象
• tBoxFilterUser：TextBox控件，使用UserName属性筛选数据
• tBoxFilterTitle：TextBox控件，使用Title属性筛选数据
• btnRemoveFilter：用于移除当前筛选器的Button控件
• dgv：数据网格视图控件

Public Class SomeForm

    Private UsersSource As New BindingSource()
    ' Current filters
    Private UserNameFilter As String = "UserName LIKE '%%'"
    Private UserTitleFilter As String = "Title LIKE '%%'"

    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)

        Dim json = File.ReadAllText("D:\Users.json")
        Dim dt = JsonConvert.DeserializeObject(Of DataTable)(json)
        dt.AcceptChanges()
        UsersSource.DataSource = dt
        dgv.DataSource = UsersSource
    End Sub

    Private Sub tBoxFilterUser_TextChanged(sender As Object, e As EventArgs) Handles tBoxFilterUser.TextChanged
        Dim tbox = DirectCast(sender, TextBox)
        UserNameFilter = $"UserName LIKE '%{tbox.Text}%'"
        UsersSource.Filter = $"{UserNameFilter} AND {UserTitleFilter}"
    End Sub

    Private Sub tBoxFilterTitle_TextChanged(sender As Object, e As EventArgs) Handles tBoxFilterTitle.TextChanged
        Dim tbox = DirectCast(sender, TextBox)
        UserTitleFilter = $"Title LIKE '%{tbox.Text}%'"
        UsersSource.Filter = $"{UserNameFilter} AND {UserTitleFilter}"
    End Sub

    Private Sub btnRemoveFilter_Click(sender As Object, e As EventArgs) Handles btnRemoveFilter.Click
        tBoxFilterUser.Clear()
        tBoxFilterTitle.Clear()
        UsersSource.RemoveFilter()
    End Sub
End Class

它是这样工作的：