Foxtable(狐表)用户栏目专家坐堂 → 如何把后台未加载数据填充到当前表?


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

主题:如何把后台未加载数据填充到当前表?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/14 15:27:00 [显示全部帖子]

 回复5楼,关于fill填出数据,你可以直接用查询表得到数据,代码如下

 

Dim q As new QueryBuilder
q.ConnectionName = "Data"
q.TableName = "统计表"
q.SelectString = "Select 出库编号明细 As 编号,日期,摘要,商品代码,商品类别,商品名称,规格,'' As 入库, 出库数量 As 出库,'' As 客户供应商,销售员,年,月 from {CKMX}" _
& " union " _
& " Select 入库编号明细,日期,摘要,商品代码,商品类别,商品名称,规格,入库数量, '', 客户,销售员,年,月 from {RKMX}"
q.Build
MainTable = Tables("统计表")

[此贴子已经被作者于2014-5-14 15:29:07编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/14 15:33:00 [显示全部帖子]

 其余的,比如 find,compute 等等,可以用 sqlFind 和 sqlCompute 去代替。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/15 11:01:00 [显示全部帖子]

 回复8楼,你改一下即可

 

Dim q As new QueryBuilder
q.ConnectionName = "Data"
q.TableName = "统计表"
q.SelectString = "Select 出库编号明细 As 编号,日期,摘要,商品代码,商品类别,商品名称,规格,0 As 入库, 出库数量 As 出库,'' As 客户供应商,销售员,年,月 from {CKMX}" _
& " union " _
& " Select 入库编号明细,日期,摘要,商品代码,商品类别,商品名称,规格,入库数量, 0, 客户,销售员,年,月 from {RKMX}"
q.Build
MainTable = Tables("统计表")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/15 11:02:00 [显示全部帖子]

 或者这样改

 

Dim q As new QueryBuilder
q.ConnectionName = "Data"
q.TableName = "统计表"
q.SelectString = "Select 出库编号明细 As 编号,日期,摘要,商品代码,商品类别,商品名称,规格,null As 入库, 出库数量 As 出库,'' As 客户供应商,销售员,年,月 from {CKMX}" _
& " union " _
& " Select 入库编号明细,日期,摘要,商品代码,商品类别,商品名称,规格,入库数量, null, 客户,销售员,年,月 from {RKMX}"
q.Build
MainTable = Tables("统计表")


 回到顶部