求助~ 解决2个Dataset追加数据问题。。。折腾死了

jupiterabc 2018-04-03 02:25:14
有一个dataset中的两个table,表结构都一致。两个表都是手动创建的列。
一个是myds.tables("linshi") ,是由Linq查询得出的一个表,由于查询条件很多,导致for each遍历会特别慢,所以按照10条ID来进行查询,然后循环所有的ID。每次查询出来的结果,需要放到另一个 myds.tables("allData") 表中。然后清空linshi表再次查询。

现在的问题是,linq查询没问题,第一次查询的结果也已经放入了linshi表,但怎么才能把临时表的内容在每次清空linshi表之前放入allData表?是用追加的方式来放入数据。

我的代码过程只能看到console输出的是表结构没有问题,也已经创建了表,但就是数据过不去。

另外,linq查询每次10个ID怎么循环会比较好一些? 放入20个ID查就会变很慢。每组数据大概有400多ID

帮忙指点下~~


'allData表在load时已经创建
Dim Dt_allData As DataTable = New DataTable("allData")
Dim mydr_alldata As DataRow
Try
For i = 0 To myds.Tables("linshi").Rows.Count - 1
mydr_alldata = Dt_allData.NewRow()
mydr_alldata("f_screenings") = myds.Tables("linshi").Rows(i).Item("f_screenings").ToString
mydr_alldata("toubi_win") = myds.Tables("linshi").Rows(i).Item("toubi_win").ToString
mydr_alldata("toubi_falt") = myds.Tables("linshi").Rows(i).Item("toubi_falt").ToString
mydr_alldata("toubi_negative") = myds.Tables("linshi").Rows(i).Item("toubi_negative").ToString
mydr_alldata("w3") = myds.Tables("linshi").Rows(i).Item("w3").ToString
mydr_alldata("w1") = myds.Tables("linshi").Rows(i).Item("w1").ToString
mydr_alldata("w0") = myds.Tables("linshi").Rows(i).Item("w0").ToString
mydr_alldata("wfan") = myds.Tables("linshi").Rows(i).Item("wfan").ToString
mydr_alldata("cLinfo") = myds.Tables("linshi").Rows(i).Item("cLinfo").ToString
mydr_alldata("L3") = myds.Tables("linshi").Rows(i).Item("L3").ToString
mydr_alldata("L1") = myds.Tables("linshi").Rows(i).Item("L1").ToString
mydr_alldata("L0") = myds.Tables("linshi").Rows(i).Item("L0").ToString
mydr_alldata("Lfan") = myds.Tables("linshi").Rows(i).Item("Lfan").ToString
mydr_alldata("Linfo") = myds.Tables("linshi").Rows(i).Item("Linfo").ToString
mydr_alldata("bet3") = myds.Tables("linshi").Rows(i).Item("bet3").ToString
mydr_alldata("bet1") = myds.Tables("linshi").Rows(i).Item("bet1").ToString
mydr_alldata("bet0") = myds.Tables("linshi").Rows(i).Item("bet0").ToString
mydr_alldata("betfan") = myds.Tables("linshi").Rows(i).Item("betfan").ToString
mydr_alldata("betinfo") = myds.Tables("linshi").Rows(i).Item("betinfo").ToString
mydr_alldata("a993") = myds.Tables("linshi").Rows(i).Item("a993").ToString
mydr_alldata("a991") = myds.Tables("linshi").Rows(i).Item("a991").ToString
mydr_alldata("a990") = myds.Tables("linshi").Rows(i).Item("a990").ToString
mydr_alldata("a99fan") = myds.Tables("linshi").Rows(i).Item("a99fan").ToString
mydr_alldata("a99info") = myds.Tables("linshi").Rows(i).Item("a99info").ToString
Dt_allData.Rows.Add(mydr_alldata)
Next
myds.Tables.Add(Dt_allData)
DataGridView1.DataSource = myds.Tables("allData")
DataGridView1.Refresh()
Catch ex As Exception

End Try

...全文
459 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
你的 “alldata” 表的数据是从 “linshi” 表中循环查询放进去的? 为什么不在 linq查询 得出 “linshi” 表的数据时直接同步填充 “alldata” 表?先填充 “linshi” 表 ,再循环 到 “alldata” 表,多此一举嘛,我看你的循环里面也没有做数据判断和修改啊,完全没有必要。本身循环遍历的效率就很低,和 SQL 相比,那是天差地别。 如果,你确实有什么功能需要循环遍历的话,建议用 DataRow 来复制数据。
simonmao313 2018-04-23
  • 打赏
  • 举报
回复
建议用SQl语句!
WPS Office 2019 是一款功能丰富的办公软件套装,它整合了文字、表格、演示、PDF 等组件,具备体积小巧、功能丰富、兼容性强等特点,能满足日常办公的多种需求。 功能组件丰富:包含 WPS 文字、WPS 演示、WPS 表格、WPS PDF 等组件,可用于文档编辑、表格计算、幻灯片制作、PDF 处理等,支持 DOC、DOCX、XLS、XLSX、PPT 等多种格式,能与 Microsoft Office 较好地兼容。 支持云存储与协作:用户登录 WPS 账号后,可实现多终端、跨平台的数据同步,还能与他人协同办公,文档可通过微信、QQ 等社交平台一键分享。 PDF 功能强大:提供沉浸式 PDF 阅读体验和稳定的编辑服务,支持一键编辑 PDF 文档内容。借助 OCR 技术,可精准转换文档、表格、PPT、图片等格式的文件。 界面设计优化:具有全新视觉设计,默认皮肤舒适清爽,还支持桌面背景、界面字体、皮肤、格式图标等个性化设置。同时,文档标签可拖拽成独立窗口或合并,用户可自主选择文档显示方式,还能将文件放置在不同工作区,便于分类浏览与管理。 内置实用工具:内置了简单的网页浏览器,点击文档中的链接会默认用其打开,可进行网页添加到首页、另存为 PDF 等操作。此外,“应用中心” 集成了输出转换、文档助手、安全备份等多种实用功能。 模板资源丰富:稻壳商城提供了大量模板、范文、图片等素材资源,涵盖求职简历、总结计划、合同协议等常见文档类型,方便用户快速创建专业文档。 表格功能特色突出:支持通过关键词快速切换工作表,设有阅读模式和护眼模式。还可分类合并单元格,以及拆分合并单元格并填充内容。公式编辑器中可轻松完成公式嵌套,筛选时可通过 “仅筛选此项” 一步完成特定值筛选,还能根据筛选条件生成动态分析图表。另外,“特色功能” 和 “智能工具箱” 菜单中包含 PDF

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧