以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56104)

--  作者:若水三千
--  发布时间:2014/8/29 14:18:00
--  请教问题
例如这样 dim s as string ="1分,2分,3分,4分"

 姓名列       说谎指标列
张三
李四
王二


就是例如姓名列有20行分别为20个不同的人名 ,将上面的1分,2分,3分 以逗号为分隔符 分别填到这20个人名对应的说谎指标列  如下图  
姓名列       说谎指标列
张三           1分
李四            2分
王二            3分

--  作者:若水三千
--  发布时间:2014/8/29 14:21:00
--  
还看不懂吗?
--  作者:Bin
--  发布时间:2014/8/29 14:23:00
--  
同一问题不要重复提问http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=56103
--  作者:有点甜
--  发布时间:2014/8/29 14:26:00
--  

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