用SQL语句,例如:
Dim cmd As New SQLCommandDim dt As DataTablecmd.Connection Name = "数据源名称"cmd.CommandText = "SELECT DISTINCT 客户 From {订单}"dt = cmd.ExecuteReader()For Each dr As DataRow In dt.DataRows output.show(dr("客户"))Next