以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码差错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17179)
--  作者：youyuweinihao
--  发布时间：2012/3/5 21:58:00
--  代码差错
Dim Customers As List(Of String)
\'Customers = DataTables("具体消费").GetUniqueValues("[消费单号]= dr("消费单号") , "销售代表")
For Each Customer As String In Customers
    dr("销售代表") = Customer.Trim(",")
Next
请问这句代码那个地方出错了
--  作者：狐狸爸爸
--  发布时间：2012/3/5 22:18:00
--  

如果单号是字符型：

Customers = DataTables("具体消费").GetUniqueValues("[消费单号]= \'" & dr("消费单号") & "\'" , "销售代表")

 

如果单号是整数型：

 

Customers = DataTables("具体消费").GetUniqueValues("[消费单号]= " & dr("消费单号") , "销售代表")

 

 

 
--  作者：程兴刚
--  发布时间：2012/3/5 22:23:00
--  

错多了，需要明白您的意思才知道怎么改！

第一句Dim Customers As List(Of String) 改为 Dim Customers As new List(Of String)

去掉第二句的\'

代码逻辑错误，看前者是要定义集合，看后者，是需要一个字符串，需要告诉您的需要！