以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]问题如下  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6029)

--  作者：hty4000 --  发布时间：2010/2/26 22:21:00 --  [求助]问题如下 有这样两张表，分别是A表和B表， A表有三列，分别编码、名称、型号（全部产品都在里面），B表有四列，分别是编码、名称、使用日期、价格（这张表是从别的软件中导出的，可能只有部分产品），可以设置编码为关联，问题是如何让B表中加上在A表中同编码的型号？  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:样表.rar  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目9.table [此贴子已经被作者于2010-2-26 23:10:48编辑过]

--  作者：mr725 --  发布时间：2010/2/26 22:30:00 --   发文件上来看看，应该很简单的。

--  作者：mr725 --  发布时间：2010/2/26 22:54:00 --   你是要用Excel来做，还是用foxtable来做？？？

--  作者：hty4000 --  发布时间：2010/2/26 22:58:00 --   当然是用foxtable，传的只是想实现的前提

--  作者：mr725 --  发布时间：2010/2/26 23:15:00 --   For i as integer = 0 To Tables("表A").count-1        Dim drs As List(Of DataRow)     drs = DataTables("表B").Select("[编号] = \'" & Tables("表A").rows(i)("编号") & "\'")     For Each dr As Datarow In drs         dr("型号") = Tables("表A").rows(i)("型号")     Next    Next

--  作者：mr725 --  发布时间：2010/2/26 23:43:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目9.table

--  作者：hty4000 --  发布时间：2010/2/27 16:20:00 --   非常感谢，还有就是确定型号后，如何将指定型号产品的价格合计到指定表的指定单元格呢？  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目9.table [此贴子已经被作者于2010-2-27 17:15:29编辑过]

--  作者：hty4000 --  发布时间：2010/2/27 19:15:00 --   确定型号后，如何将指定型号产品的价格合计到指定表的指定单元格呢？

--  作者：mr725 --  发布时间：2010/2/27 20:05:00 --   价格合计? 没弄懂啊～   如果是金额性质的 用sum啊～

--  作者：hty4000 --  发布时间：2010/2/27 20:22:00 --   将价格改为金额，将指定型号产品的金额合计到指定表的指定单元格，这样的代码应该怎么写