我在论坛上找发现了一个比较方便的排序代码如下：
'准备要排序的内容
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 这个变量的属性不定，如何把他他们放到每一行的【抽签】列中？
……
Dim lst As List(Of String) = Enumerable.ToList(sortedNames)
For Each nm As String In lst
Output.Show(nm)
Next
'准备要排序的内容
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编辑过]