以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何把最后一行某列添入表2  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60692)

--  作者:xjc620
--  发布时间:2014/11/29 10:57:00
--  如何把最后一行某列添入表2
Dim f As New Filler
f.Distinct = False
f.SourceTable = DataTables("账务查询") \'指定数据来源
f.SourceCols = "日期,车号" \'指定数据来源列
f.DataTable = DataTables("结账汇总") \'指定数据接收表
f.DataCols = "日期,车号" \'指定数据接收列
f.Fill()

怎么把账务查询表里的车号列最后一行添入结账汇总表里


--  作者:Bin
--  发布时间:2014/11/29 11:13:00
--  
你这不是导入了么? 
--  作者:xjc620
--  发布时间:2014/11/29 11:29:00
--  
我这是把整个一个导过去了,但我想把最后一行数据添到另一个表里
--  作者:pyh6918
--  发布时间:2014/11/29 14:23:00
--  
Tables("账务查询").Position = Tables("账务查询").Rows.Count - 1
Dim f As New Filler
f.Distinct = False
f.SourceTable = DataTables("账务查询") \'指定数据来源
f.SourceCols = "日期,车号" \'指定数据来源列
f.DataTable = DataTables("结账汇总") \'指定数据接收表
f.DataCols = "日期,车号" \'指定数据接收列
f.Filter= "[_Identify] = Tables("账务查询").Current("_Identify")“
f.Fill()