以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]将生成的随机号放在每一行的【抽签】列中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194923)

--  作者：jjjeyes --  发布时间：2025/2/6 17:12:00 --  [求助]将生成的随机号放在每一行的【抽签】列中 我在论坛上找发现了一个比较方便的排序代码如下： \'准备要排序的内容 Dim names As New List(Of String) From {1, 2, 3, 4, 5, 6, 7, 8} \'执行随机排序 Dim sortedNames = names.OrderBy(Function(x) Rand.Next()) \'显示排序结果 For Each nm As String In sortedNames     Output.Show(nm) Next 接下来，我想把这些已经重新排号序的内容分别放在【分组】表的【抽签】列中，发现sortedNames 这个变量的属性不定，如何把他他们放到每一行的【抽签】列中？

--  作者：有点蓝 --  发布时间：2025/2/6 17:22:00 --   …… Dim lst As List(Of String) = Enumerable.ToList(sortedNames) For Each nm As String In lst     Output.Show(nm) Next

--  作者：jjjeyes --  发布时间：2025/2/6 17:44:00 --   \'准备要排序的内容 Dim names As New List(Of String) From {1, 2, 3, 4, 5, 6, 7, 8} \'执行随机排序 Dim sortedNames = names.OrderBy(Function(x) Rand.Next()) \'显示排序结果 Dim lst As List(Of String) = Enumerable.ToList(sortedNames) \'将排序结果遍历给每一行 For i As Integer = 0 To names.Count - 1     Dim r As Row = Tables("分组人员表").Rows(i)     r("签号") = lst(i) Next  感谢，已经完美解决了问题 [此贴子已经被作者于2025/2/6 17:47:47编辑过]