第一列作为列表项目，以编号为为序，直接在命令窗口执行即可：
Dim lst As New List(of String)
Dim Val As String
For Each dr As DataRow In DataTables("表A").Select("","编号")
if dr.IsNull("第一列")= False AndAlso lst.Contains(dr("第一列")) = False
val = val & dr("第一列") & "|"
lst.add(dr("第一列"))
End If
Next
Return Val.Trim("|")
[此贴子已经被作者于2009-11-16 12:33:17编辑过]
如果是从后台获得，直接用SQL语句，加上Distinct关键词即可
以下是引用mr725在2009-11-16 13:04:00的发言：
还是老六的代码简洁～
再过一年，我们就差不多了。
谢老六，这正是我想要的。正是：踏破铁鞋无觅处，得来全不费工夫。