用GetValues，可以得到任何一列所有的不重复值。
Dim Products As List(Of String)Products = DataTables("产品").GetValues("产品名称")
messagebox.show(Products.Count)
加好友 
发短信
Post By：2016/8/15 8:14:00 [显示全部帖子]
