- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎么把两个表的数据合到一张表上 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52156)
-- 发布时间：2014/6/10 14:01:00
-- [求助]怎么把两个表的数据合到一张表上
这两个表各有一部分数据，怎么把两个表的数据合到一张表上？求教
此主题相关图片如下：qq图片20140610135832.jpg
此主题相关图片如下：qq图片20140610135916.jpg
-- 发布时间：2014/6/10 14:02:00
--
用数据填充器http://www.foxtable.com/help/topics/0680.htm
-- 发布时间：2014/6/10 14:05:00
--
昏，這明顯是報表作數據表用
-- 发布时间：2014/6/10 14:07:00
--
呃，需要查找，比较再填充。做个例子发上来
-- 发布时间：2014/6/10 14:16:00
-- [求助]怎么把两个表的数据合到一张表上
怎么把第一张表的后半部分数据合到第二张表上，形成一个完整的表
-- 发布时间：2014/6/10 14:20:00
--
请上例子
-- 发布时间：2014/6/10 14:22:00
--
代码大致如下面这样，你改一下表名来用
Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt2.DataRows
Dim fdr As DataRow = dt1.Find("单位 = \'" & dr("单位") & "\' and 组名称 = \'" & dr("组名称") & "\'")
If fdr IsNot Nothing Then
For Each dc As DataCol In dt2.DataCols
If dr.IsNull(dc.Name) AndAlso fdr.IsNull(dc.Name) = False Then
dr(dc.Name) = fdr(dc.name)
End If
Next
End If
Next
-- 发布时间：2014/6/10 14:29:00
-- [求助]怎么把两个表的数据合到一张表上
谢谢，数据导入了，但是合计数没进来，再请教下
此主题相关图片如下：1.jpg
-- 发布时间：2014/6/10 14:31:00
-- [求助]怎么把两个表的数据合到一张表上
第一张表的合计在单位哪，第二张表的合计在组名称，怎么办
-- 发布时间：2014/6/10 14:32:00
-- [求助]怎么把两个表的数据合到一张表上
没有数据的怎么填充0