Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多表取不重复值形成经常使用的表


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

主题：多表取不重复值形成经常使用的表
美女呀，离线，留言给我吧！
朱女士
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		多表取不重复值形成经常使用的表  发帖心情 Post By：2020/7/23 9:55:00 [只看该作者]

老师您好！
      我有三个表都有“ylggddm,供应商，ylmc”三列。我能从三个表中分别取不重复值形成“ylgg”表，但是ylgg表中还有重复值，我想再从ylgg表中再取不重复值，继续存在此ylgg表中，作为常用外部数据表用。
    最后一步不知道怎么实现。请指教！谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/23 9:58:00 [只看该作者]

从三个表中分别取不重复值形成“ylgg”表的时候就应该去重了，从第二个表开始往“ylgg”表填充数据的时候就应该使用find查重后再插入数据

 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2020/7/23 10:00:00 [只看该作者]

For Each nm As String In DataTables("ylqcb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylqcb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") = pr("原料规格")
    dr("ylggddm")=nm
Next

For Each nm As String In DataTables("ylrkb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylrkb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") =pr("原料规格")
    dr("ylggddm")=nm  
Next

For Each nm As String In DataTables("ylckb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylckb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") =pr("原料规格")
    dr("ylggddm")=nm   
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/23 10:03:00 [只看该作者]

For Each nm As String In DataTables("ylqcb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylqcb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") = pr("原料规格")
    dr("ylggddm")=nm
Next

For Each nm As String In DataTables("ylrkb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").find("ylggddm='" & nm & "'")
if dr is nothing then
Dim dr As DataRow =DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylrkb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") =pr("原料规格")
    dr("ylggddm")=nm  
end if
Next

第三个表自己参考着改
[此贴子已经被作者于2020/7/23 10:03:07编辑过]
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2020/7/23 10:30:00 [只看该作者]

老师：
    下面这段代码有错误信息：变量“dr"在封闭块中隐藏变量。
For Each nm As String In DataTables("ylrkb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").find("ylggddm='" & nm & "'")
if dr is nothing then
Dim dr As DataRow =DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylrkb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") =pr("原料规格")
    dr("ylggddm")=nm  
end if
Next
谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/23 10:31:00 [只看该作者]

dr  =DataTables("ylgg").AddNew()

 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2020/7/23 10:57:00 [只看该作者]

老师还有错误信息：.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：窗口,新规格,Button1,Click
详细错误信息：
未将对象引用设置到对象的实例。
我没检查出来。
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2020/7/23 10:58:00 [只看该作者]

还是第二段

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/23 11:07:00 [只看该作者]

贴出改后的代码

 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2020/7/23 11:11:00 [只看该作者]

For Each nm As String In DataTables("ylqcb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylqcb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") = pr("原料规格")
    dr("ylggddm")=nm
Next
For Each nm As String In DataTables("ylrkb").GetValues("ylggddm")
    Dim dr As DataRow = DataTables("ylgg").find("ylggddm='" & nm & "'")

If dr Is Nothing Then
dr =DataTables("ylgg").AddNew()
    Dim pr As DataRow = DataTables("ylrkb").find("ylggddm='" & nm & "'")
    dr("供应商") = pr("供应商")
    dr("ylmc") = pr("ylmc")
    dr("原料规格") =pr("原料规格")
    dr("ylggddm")=nm
End If

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