马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
如果定义一个静态的二维数组,然后去重,是可以正确实现的(不报错)
例如
[按键精灵] 纯文本查看 复制代码 //定义一个静态二维数组
Dim 合体数组()
合体数组(0) = Array(1, 1, 1, 1)
合体数组(1) = Array(2, 2, 2, 2)
合体数组(2) = Array(3, 3, 3, 3)
合体数组(3) = Array(4, 4, 4, 4)
合体数组(4) = Array(4, 4, 4, 4)
合体数组(5) = Array(3, 3, 3, 3)
合体数组(6) = Array(1, 1, 1, 1)
//对静态二维数组去重
For i = 1 To UBOUND(合体数组) + 1
For j = i + 1 To UBOUND(合体数组)
If Join(合体数组(i), "") = Join(合体数组(j), "") Then
合体数组(j) = null
Exit For
End If
Next
Next
//遍历去重后的二维数组
For i = 1 To UBOUND(合体数组)+1
TracePrint 合体数组[i][1],合体数组[i][2],合体数组[i][3],合体数组[i][4]
Next
对于静态二维数组,这套去重代码可以正常用,但是如果用去重代码去去重一个动态的二维数组就会报错,这个怎么去解决啊
报错内容:发生运行时错误！错误代码：2，错误行号：39，错误信息： bad argument #1 to 'table' (table expected, got null)
| 
发表于 2021-6-29 13:06:07
发表于 2021-6-29 15:35:40
