以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  删除包含的内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5852)

--  作者：lihe60 --  发布时间：2010/1/25 11:05:00 --  删除包含的内容 第一列的某行数据包含在该行后面行的数据，则删除当前行。 如第一行1001包含在第二行100101，删除第一行；第二行100101不包含在任何一行，第二行不删除； 第四行1002包含在第五行，删除第四行；第五行100201又包含在第六行10020101，删除第五行，第六行不删除。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:删除.table

--  作者：czy --  发布时间：2010/1/25 12:15:00 --   For Each dr As DataRow In DataTables("表A").DataRows     dr("第十列") = DataTables("表A").Compute("Count(第一列)","第一列 Like \'*" & dr("第一列") & "*\'") Next DataTables("表A").DeleteFor("[第十列] <> \'1\'")