Foxtable(狐表) → 用户栏目 → 专家坐堂 → sql 表合并


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

主题：sql 表合并
帅哥哟，离线，有人找我吗？
阿福
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00 		sql 表合并  发帖心情 Post By：2015/8/29 20:54:00 [只看该作者]


dt1 = cmd1.ExecuteReader()
如下表
  sys_user 年母猪存栏数肉猪存栏数_年末肉猪存栏数_年底肉猪销售数MSY   
                     



dt2 = cmd2.ExecuteReader()
如下表
sys_user年购买_母猪购买_公猪购买_肉猪饲料疫苗药品易耗品保险费水电费工资费用工程折旧费其他支出支出合计
                                             



老师如何把，dt1表和dt2表合并成以下这个表，其中dt1和dt2的“sys_user”列 和 “年”列，是一一对应的
 sys_user   年   MSY    支出合计  
            
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信
等级：狐神 帖子：4734 积分：34468 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2015/8/29 20:59:00 [只看该作者]

用SQLJoinTableBuilder就可以实现
完成不了可以上例子
 回到顶部
帅哥哟，离线，有人找我吗？
阿福
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00 		  发帖心情 Post By：2015/8/29 21:08:00 [只看该作者]

dt1表和dt2表是临时datatable，不是table，我不会用SQLJoinTableBuilder，老师可以亲自写一下代码？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110337 积分：561533 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/29 21:19:00 [只看该作者]

这种不能用sqljointablebuilder你用下面的方法
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("sys_user", Gettype(String), 32)
dtb.AddDef("年", Gettype(string),10)
dtb.AddDef("msy", Gettype(string),15)
dtb.AddDef("支出合计", Gettype(Double))
dtb.Build()
For Each nm() As String In dt1.GetValues("sys_user|年|MSY")
    Dim dr As DataRow = DataTables("统计").AddNew()
     dr("sys_user") = nm(0)
     dr("年") = nm(1)
     dr("msy") = nm(2)
     Dim dr2 as DataRow = dt2.Find("sys_user='" & nm(0) & "' and 年='" & nm(1) & "'")
      if dr2 IsNot Nothing then
      dr("支出合计") = dr2("支出合计")
      endif
Next
MainTable= Tables("统计")
 回到顶部
帅哥哟，离线，有人找我吗？
阿福
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00 		  发帖心情 Post By：2015/8/29 21:42:00 [只看该作者]

老师，我改了一下代码，如下
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("sys_user", Gettype(String), 32)
dtb.AddDef("年", Gettype(string),10)
dtb.AddDef("msy", Gettype(string),15)
dtb.AddDef("支出合计", Gettype(Double))
dtb.Build()
For Each nm() As String In dt1.GetValues("sys_user|年|MSY")
    Dim dr As DataRow = DataTables("统计").AddNew()
     dr("sys_user") = nm(0)
     dr("年") = nm(1)
     dr("msy") = nm(2)
     Dim dr2 as DataRow = dt2.Find("sys_user='" & nm(0) & "' and 年='" & nm(1) & "'")
      if dr2 IsNot Nothing then
      dr("支出合计") = dr2("支出合计")
      endif
Nex
Tables("上市肉猪费用_table3").DataSource  = DataTables("统计")

但出现以下错误提示
.NET Framework 版本：2.0.50727.8000
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,上市肉猪费用,Button1,Click
详细错误信息：
无法找到列 MSY。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110337 积分：561533 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/8/29 21:49:00 [只看该作者]

你先把msy屏蔽如下看看行不行
For Each nm() As String In dt1.GetValues("sys_user|年")
    Dim dr As DataRow = DataTables("统计").AddNew()
     dr("sys_user") = nm(0)
     dr("年") = nm(1)
     'dr("msy") = nm(2)
     Dim dr2 as DataRow = dt2.Find("sys_user='" & nm(0) & "' and 年='" & nm(1) & "'")
      if dr2 IsNot Nothing then
      dr("支出合计") = dr2("支出合计")
      endif
Next
 回到顶部
帅哥哟，离线，有人找我吗？
阿福
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00 		  发帖心情 Post By：2015/8/29 22:01:00 [只看该作者]

还是不行
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("sys_user", Gettype(String), 32)
dtb.AddDef("年", Gettype(String),10)
'dtb.AddDef("msy", Gettype(String),40)
dtb.AddDef("支出合计", Gettype(Double))
dtb.Build()
For Each nm() As String In dt1.GetValues("sys_user|年")
    Dim dr As DataRow = DataTables("统计").AddNew()
     dr("sys_user") = nm(0)
     dr("年") = nm(1)
     'dr("msy") = nm(2)
     Dim dr2 As DataRow = dt2.Find("sys_user='" & nm(0) & "' and 年='" & nm(1) & "'")
      If dr2 IsNot Nothing Then
      dr("支出合计") = dr2("支出合计")
      End If
Next
MainTable= Tables("统计")
 回到顶部
帅哥哟，离线，有人找我吗？
阿福
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00 		  发帖心情 Post By：2015/8/29 22:03:00 [只看该作者]

完整代码：
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "Select sys_user, YEAR(购买_日期) As 年, sum(购买_母猪) As 购买_母猪, sum(购买_公猪) As 购买_公猪, sum(购买_肉猪) As 购买_肉猪, sum(饲料) As 饲料, sum(疫苗) As 疫苗, sum(药品) As 药品, sum(易耗品) As 易耗品, sum(保险费) As 保险费, sum(水电费) As 水电费, sum(工资费用) As 工资费用, sum(工程折旧费) As 工程折旧费, sum(其他支出) as 其他支出 f rom" & _
"(Select sys_user, 购买_日期, 购买_金额 As 购买_母猪, 0 As 购买_公猪, 0 As 购买_肉猪, 0 As 饲料, 0 As 疫苗, 0 As 药品, 0 As 易耗品, 0 As 保险费, 0 As 水电费, 0 As 工资费用, 0 As 工程折旧费, 0 as 其他支出 f rom {母猪基本信息} u nion all " & _
"Select sys_user, 购买_日期, 0, 购买_金额 As 购买_公猪, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0  f rom {公猪信息}  u nion all " & _
"Select sys_user, 购买_日期, 0, 0, 购买_金额 As 购买_肉猪, 0, 0, 0, 0, 0, 0, 0, 0, 0  f rom {肉猪信息}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 饲料量_总金额 as 饲料, 0, 0, 0, 0, 0, 0, 0, 0   f rom {饲料采购}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 总金额 as 疫苗, 0, 0, 0, 0, 0, 0, 0    f rom {疫苗采购}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 0, 总金额 as 药品, 0, 0, 0, 0, 0, 0    f rom {药品采购}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 0, 0, 总金额 as 易耗品, 0, 0, 0, 0, 0    f rom {易耗品采购}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 0, 0, 0, 投保金额 as 保险费, 0, 0, 0, 0    f rom {保险费} u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 0, 0, 0, 0, 金额 as 水电费, 0, 0, 0    f rom {水电费}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 0, 0, 0, 0, 0, 金额 as 工资费用, 0, 0    f rom {工资费用}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 支出金额 as 工程折旧费, 0    f rom {工程折旧费用}  u nion all " & _
"Select sys_user, 日期, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 金额 as 其他支出    f rom {其他支出} ) " & _
"As a where [sys_user]='" & user.Name & "' group by year(购买_日期), sys_user order by year(购买_日期), sys_user "
dt1 = cmd1.ExecuteReader()
dt1.DataCols.Add("支出合计",Gettype(Integer), "IsNull([购买_母猪],0) + ISNULL([购买_公猪],0) + ISNULL([购买_肉猪],0) + ISNULL([饲料],0) + ISNULL([疫苗],0) + ISNULL([药品],0) + ISNULL([易耗品],0) + ISNULL([保险费],0) + ISNULL([水电费],0) + ISNULL([工资费用],0) + ISNULL([工程折旧费],0) + ISNULL([其他支出],0)  ")


Dim cmd2 As New SQLCommand
Dim dt2 As DataTable
cmd2.C
cmd2.CommandText =  "Select sys_user, 年, sum(母猪存栏数) As 母猪存栏数, sum(肉猪存栏数_年末) As 肉猪存栏数_年末, sum(肉猪存栏数_年初) As 肉猪存栏数_年初, sum(肉猪销售数) As 肉猪销售数 f rom " & _
"(Select sys_user, year(日期) As 年, avg(母猪_总) As 母猪存栏数, 0 As 肉猪存栏数_年末, 0 As 肉猪存栏数_年初, 0 As 肉猪销售数 f rom {母猪存栏结构}  group by sys_user, year(日期)  u nion all " & _
"Select sys_user, year(日期), 0, 合计, 0, 0 f rom{肉猪存栏结构} where month(日期) = 12 u nion all " & _
"Select sys_user, year(日期), 0, 0, 合计, 0 f rom{肉猪存栏结构} where month(日期) = 1 u nion all " & _
"Select sys_user, year(销售_日期), 0, 0, 0, count(销售_日期) f rom {肉猪信息} group by sys_user, year(销售_日期)) " & _
"As a where sys_user='" & user.Name & "' group by 年, sys_user"
dt2 = cmd2.ExecuteReader()
dt2.DataCols.Add("MSY",Gettype(Double), " (IsNull([肉猪存栏数_年末],0) - ISNULL([肉猪存栏数_年初],0) + ISNULL([肉猪销售数],0)) / IIF(IsNull([母猪存栏数],0) = 0, null, IsNull([母猪存栏数],0))   ")



Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("sys_user", Gettype(String), 32)
dtb.AddDef("年", Gettype(String),10)
'dtb.AddDef("msy", Gettype(String),40)
dtb.AddDef("支出合计", Gettype(Double))
dtb.Build()
For Each nm() As String In dt1.GetValues("sys_user|年")
    Dim dr As DataRow = DataTables("统计").AddNew()
     dr("sys_user") = nm(0)
     dr("年") = nm(1)
     'dr("msy") = nm(2)
     Dim dr2 As DataRow = dt2.Find("sys_user='" & nm(0) & "' and 年='" & nm(1) & "'")
      If dr2 IsNot Nothing Then
      dr("支出合计") = dr2("支出合计")
      End If
Next
MainTable= Tables("统计")
 回到顶部
帅哥哟，离线，有人找我吗？
阿福
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：1357 威望：0 精华：0 注册：2015/3/25 16:42:00 		  发帖心情 Post By：2015/8/29 22:07:00 [只看该作者]

dt1 和dt2 的代码，我测试过，没问题，就只剩最后那一段代码，不知哪里出错
 回到顶部
总数 22 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询