标题：删除包含的内容

第一列的某行数据包含在该行后面行的数据，则删除当前行。
如第一行1001包含在第二行100101，删除第一行；第二行100101不包含在任何一行，第二行不删除；
第四行1002包含在第五行，删除第四行；第五行100201又包含在第六行10020101，删除第五行，第六行不删除。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:删除.table

For Each dr As DataRow In DataTables("表A").DataRows
    dr("第十列") = DataTables("表A").Compute("Count(第一列)","第一列 Like '*" & dr("第一列") & "*'")
Next
DataTables("表A").DeleteFor("[第十列] <> '1'")