Dim arr() As String
Dim a,ind As Integer
a= Tables("表A").Find("", 0, 0, False, True, True)
For ind = 0 To a-1
arr(Ind) =Tables("表A").Rows(ind)("第一列")
Next ind
'
''求排列
'Dim lst_Permutation As List(Of String()) = PermutationAndCombination(Of String).GetPermutation(arr)
'
'Dim s1 As String = ""
'For Each ary As String() In lst_Permutation
's1 &= ary(0) & ary(1) & ary(2) & ary(3) & ary(4)
'Next
MessageBox.Show(arr(1))
以上是我的代码,借鉴了部分狐表大大提供的全排列代码。
但是在赋值阶段总是提示“未将对象引用设置到对象的实例。”
即使将全排列部分注释掉也是如此