主题：[求助]循环显示

Dim ss As String
For Each dr As DataRow In DataTables("订单明细").DataRows
    Dim Customers As List(Of String)
    Customers = DataTables("订单明细").GetUniqueValues("[进度] = False ","产品名称")
    If dr("进度") = False Then
        For i As Integer = 0 To Customers.Count - 1
            ss = "*文件名[" & Customers(i) & "]未下单,请及时下单!" & Chr(10) & ss
        Next
    End If
Next
Forms("事件提醒").Controls("Label1").text = ss

这个是代码

但运行结果如下：

此主题相关图片如下：qq截图20130723164824.png

每个名字都有重复

想要的就是三个条件符合就只显示三个条件

此主题相关图片如下：qq图片20130723165945.jpg

其它重复的不要

请多上实例，少贴代码，更不能代码都舍不得贴上。

有了实例，容易理解，便于测试。

不然回答问题的人，又得从头做一个项目，又要填写测试数据。