Dim drs As List(Of DataRow)drs = DataTables("品名对照表").Select("实际品名名称 = '" & Args(0) & "'")
if drs.Count > 0
Return drs(Rand.Next(0,drs.Count-1))
else
Return Args(0)
end if
这样也许效率高一些！
加好友 
发短信
Post By：2013/12/9 0:28:00 [显示全部帖子]
