主题：[求助]循环显示

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

每个名字都有重复