如果单号是字符型:
Customers = DataTables("具体消费").GetUniqueValues("[消费单号]= '" & dr("消费单号") & "'" , "销售代表")
如果单号是整数型:
Customers = DataTables("具体消费").GetUniqueValues("[消费单号]= " & dr("消费单号") , "销售代表")