Uibot-对数组重复元素去重2

        在去重中，最开始使用的是冒泡法对数组中重复元素去重，但该方法仅使用于数据量较小的数组，对数组数据量较大的，严重影响速度，经过学习发现利用数据表去重，更快捷高效，尤其是数据量较大的数组。

        第一步，构建数据表，

        使用（Datatable.BuildDataTable）将将现有数组转换为数据表，其中["表号"]为数据表表头

Dim 去重后 =""  Dim 未去重 = ""  Dim 未去重数据表 = ""  Dim 去重后数据表 = ""  未去重=["0101","4130001002","0101","0102","4130001002","4130001002","4130001002","0101","0101","0102"]  未去重数据表 = Datatable.BuildDataTable(未去重,["表号"])

        第二步，数据表去重

        直接利用 (Datatable.DropDuplicatesDataTable) 对数据表去重（代码为对表头为"表号"的列去重，first为保留第一行数据）

去重后数据表 = Datatable.DropDuplicatesDataTable(未去重数据表,"表号","first")

        最后将数据表重新转换为数据（False为不保留表头）

去重后 = Datatable.GetDataTableByArray(去重后数据表,False)