主题：狐爸：如何排除前面的重复值，留下最后一个。

这样是不是楼主要的结果：

Dim sk As String
Dim Cs As List(Of String)
Cs = DataTables("例子二").GetUniqueValues("","产品")
For i As Integer = 0 To Cs.count -1   
    Dim dr As DataRow
    With DataTables("例子二")
        dr = .Find("产品 = '" & Cs(i) & "'","[_sortkey] Desc")
    End With
    sk = sk & "'" & dr("库存") & "',"
Next
output.show(sk)
Tables("例子二").filter = "库存 in (" & sk & ") "
Tables("例子二").sort = "产品"

学习了···