以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  这个只能求助了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143448)

--  作者：ygg8310 --  发布时间：2019/11/25 13:58:00 --  这个只能求助了  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:问题代码 (2).rar 问题是这样的，合并excel，指定文件夹中符合条件的只有100条数据，但合并时却蹦出来400  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:问题代码 (2).rar 多条数据，排除重复的功能失效

--  作者：有点蓝 --  发布时间：2019/11/25 14:09:00 --   数据是不是有多余的空格或者换行等字符？ Dim bh0 As String = sheet(n,0).Text             Dim bh1 As String = sheet(n,1).Text             Dim bh3 As String = sheet(n,3).Text output.show("客户 = \'" & bh0 & "\' And 订单 = \'" & bh1 & "\' And 产品 = \'" & bh2 & "\' And 物料 = \'" & bh3 & "\'") \'到命令窗口执行，看输出结果             If dt.Find("客户 = \'" & bh0 & "\' And 订单 = \'" & bh1 & "\' And 产品 = \'" & bh2 & "\' And 物料 = \'" & bh3 & "\'") Is Nothing Then  \'如果不存在同编号的订单

--  作者：ygg8310 --  发布时间：2019/11/25 14:16:00 --   就是命令窗口没有错误提示呀，但是把这个 Dim cmd As New SQLCommand Dim dt As DataTable cmd.ConnectionName = 。。。 cmd.CommandText =。。。。 dt = cmd.ExecuteReader()   If dt.Find 换成   If DataTables("表A").Find 这个就正常了

--  作者：有点蓝 --  发布时间：2019/11/25 14:30:00 --   不应该有这种问题的，除非连接了不同的数据库

--  作者：ygg8310 --  发布时间：2019/11/25 14:54:00 --   换了台电脑也是一样。。。

--  作者：ygg8310 --  发布时间：2019/11/25 14:57:00 --   应该是可以确定问题出在 Dim cmd As New SQLCommand Dim dt As DataTable cmd.ConnectionName = 。。。 cmd.CommandText =。。。。 dt = cmd.ExecuteReader()   If dt.Find 这一段上面 如果把它删了，马上就正常了 [此贴子已经被作者于2019/11/25 15:16:45编辑过]

--  作者：有点蓝 --  发布时间：2019/11/25 15:28:00 --   做个可以测试的实例发过来试试