Foxtable(狐表)用户栏目专家坐堂 → 如何把最后一行某列添入表2


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

主题:如何把最后一行某列添入表2

帅哥哟,离线,有人找我吗?
xjc620
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
如何把最后一行某列添入表2  发帖心情 Post By:2014/11/29 10:57:00 [只看该作者]

Dim f As New Filler
f.Distinct = False
f.SourceTable = DataTables("账务查询") '指定数据来源
f.SourceCols = "日期,车号" '指定数据来源列
f.DataTable = DataTables("结账汇总") '指定数据接收表
f.DataCols = "日期,车号" '指定数据接收列
f.Fill()

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/11/29 11:13:00 [只看该作者]

你这不是导入了么? 

 回到顶部
帅哥哟,离线,有人找我吗?
xjc620
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/11/29 11:29:00 [只看该作者]

我这是把整个一个导过去了,但我想把最后一行数据添到另一个表里

 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1128 积分:11041 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By: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()

 回到顶部