主题：如何实现筛选后 多个相同行只显示第一行？

 简单一点这样写

Tables("选择产品_table1").Select(-1,Tables("选择产品_table1").Cols("产品名称").Index)
Syscmd.Filter.HideSameValues()

复杂一点这样写

Dim drs As List(Of DataRow) = Tables("选择产品_table1").DataTable.Select("[库存数量] >0","产品名称,入库日期")
Dim idxs As String = ""
Dim names As New List(Of String)
For Each dr As DataRow In drs
    If names.Contains(dr("产品名称")) = False Then
        idxs &= dr("_Identify") & ","
        names.Add(dr("产品名称"))
    End If
Next
Tables("选择产品_table1").Filter = "_Identify in (" & idxs.TrimEnd(",") & ")"