主题：[求助]从匹配信息中随机返回一个值，如何处理？

Dim dr As DataRow

Dim Filter As String = "实际品名名称 = '" & 真实品名 & "'"

Dim 个数 As Integer = DataTables("品名对照表").Compute("Count(_Identify)",Filter)

If 个数 > 0 Then '如果找到的话

    Dim rand As Integer = Rand.Next(1, 个数)

    dr = DataTables("品名对照表").Find(filter, "_Identify", rand - 1)

    Return dr("申报品名名称")

Else

    Return 真实品名

End If