[求助]从匹配信息中随机返回一个值,如何处理? Post By:2013/12/8 22:05:00 [只看该作者]
Dim 真实品名 As String = Args(0) Dim dr As DataRow dr = DataTables("品名对照表").Find("实际品名名称 = '"& 真实品名 &"'") If dr IsNot Nothing Then '如果找到的话 'Dim Filter As String = "实际品名名称 = '" & 真实品名 & "'" 'Dim 个数 As Integer = DataTables("品名对照表").Compute("Count(_Identify)",Filter) '这一步想返回一个随机的申报品名名称 Return dr("申报品名名称") Else Return 真实品名 End If