以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样赋予每条记录一个随机值?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158039)

--  作者:cosogembird
--  发布时间:2020/11/5 17:43:00
--  怎样赋予每条记录一个随机值?
大神您好:
表名:复习
列名:随机代码
现在我想给每一条记录的随机代码项赋值,使得每一条记录都有一个不同的随机代码
下面是我写的程序,弄好久不成样子,请大神们指点更正
Dim t As Table = Tables("练习")
For i As Integer = 0 To t.Rows.Count - 1
i=i+1
Dim Val1 As Integer = Rand.Next() \'生成一个随机整数
t.Row(i).("随机代码")=VALL
Next


--  作者:有点蓝
--  发布时间:2020/11/5 20:06:00
--  
For i As Integer = 0 To t.Rows.Count - 1   
t.Row(i)("随机代码")=Rand.Next() \'生成一个随机整数 
Next

--  作者:cosogembird
--  发布时间:2020/11/5 21:12:00
--  
换了个代码搞定了