Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个只能求助了


  共有4208人关注过本帖树形打印复制链接

主题：这个只能求助了
帅哥哟，离线，有人找我吗？
ygg8310
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：8934 威望：0 精华：0 注册：2016/4/10 14:33:00 		这个只能求助了  发帖心情 Post By：2019/11/25 13:58:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:问题代码 (2).rar

问题是这样的，合并excel，指定文件夹中符合条件的只有100条数据，但合并时却蹦出来400
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:问题代码 (2).rar

多条数据，排除重复的功能失效
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113298 积分：576937 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：8934 威望：0 精华：0 注册：2016/4/10 14:33:00 		  发帖心情 Post By：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
这个就正常了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113298 积分：576937 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/25 14:30:00 [只看该作者]

不应该有这种问题的，除非连接了不同的数据库

 回到顶部
帅哥哟，离线，有人找我吗？
ygg8310
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：8934 威望：0 精华：0 注册：2016/4/10 14:33:00 		  发帖心情 Post By：2019/11/25 14:54:00 [只看该作者]

换了台电脑也是一样。。。

 回到顶部
帅哥哟，离线，有人找我吗？
ygg8310
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：8934 威望：0 精华：0 注册：2016/4/10 14:33:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113298 积分：576937 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/25 15:28:00 [只看该作者]

做个可以测试的实例发过来试试

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06299 秒, 5 次数据查询