Foxtable(狐表)用户栏目专家坐堂 → 窗口显示临时表


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

主题:窗口显示临时表

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


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

Tables("欠货统计_欠货统计表").DataSource = DataTables("欠货统计")

 

改成

 

Forms("窗口1").Controls("Table1").Table.DataSource = DataTables("欠货统计")


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


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

你窗口1必须打开之后,才能执行

 

Forms("窗口1").Controls("Table1").Table.DataSource = DataTables("欠货统计")

 

 


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


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

以下是引用实话实说在2018/2/28 15:39:00的发言:
代码在窗口的AfterLoad事件中为什不行呢

 

那你改成下面这样,报什么错?是否确定这句代码报错的?

 

e.form.Controls("Table1").Table.DataSource = DataTables("欠货统计")


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


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

Tables("欠货统计_产品欠货表").DataTable.DeleteFor("[欠货数量] = 0" )

 

或者

 

Forms("欠货统计").Controls("产品欠货表").Table.DataTable.DeleteFor("[欠货数量] = 0" )


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


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

回复10楼,数量为空值的时候,不影响计算的啊。你现在遇到什么问题?


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


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

代码没有问题,你逻辑有问题。

 

你设置的条件是【客户,产品,颜色】,不是【产品,颜色】,当客户不同的时候,自然统计的数据不同啊


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


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

你填充表格数据只是填充一个表的数据,你还要把产品明细表的数据也填充进去,不然就有漏的数据

 

Dim f As New Filler
f.SourceTable = DataTables("销售订单明细")
f.SourceCols = "客户,产品,颜色"
f.DataTable = DataTables("欠货统计")
f.DataCols = "客户,产品,颜色"
f.ExcludeExistValue = true
f.Fill()

f = New Filler
f.SourceTable = DataTables("产品明细")
f.SourceCols = "客户,产品,颜色"
f.DataTable = DataTables("欠货统计")
f.DataCols = "客户,产品,颜色"
f.ExcludeExistValue = true
f.Fill()

 
 

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


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

以下是引用实话实说在2018/3/1 18:56:00的发言:
再谢.再问:临时表的列排序标识如何取消?

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=79711&skin=0

 


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


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

3条数据的【客户,产品,颜色】值都一样?实例发上来测试。


 回到顶部