Dim s As String ="1分,2分,3分,4分"
Dim ary() As String = s.Split(",")
For Each r As Row In Tables("表A").Rows Dim i As Integer = Rand.Next(0, ary.Length) r("第二列") = ary(i)Next
加好友 
发短信
Post By：2014/8/29 14:26:00 [显示全部帖子]
