| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 请问怎么设置条件来复制表格内容呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123799) |
| -- 作者：hrlong -- 发布时间：2018/8/23 11:45:00 -- [求助] 请问怎么设置条件来复制表格内容呢 老师好，我想把表A的内容复制到总表B中； 用的下面的代码 请问怎么在前面加个条件？ 表A有个日期列，这个列都是数据当天的日期；如果表B的日期列没有当天的日期就把表A的数据复制过去 下面是准备使用的填充的代码 dim f As New Filler
f.SourceTable = DataTables("订单") \'指定数据来源 f.SourceCols = "产品,客户" \'指定数据来源列 f.DataTable = DataTables("统计") \'指定数据接收表 f.DataCols = "产品,客户" \'指定数据接收列 f.Fill() \'填充数据 |
| -- 作者：有点蓝 -- 发布时间：2018/8/23 11:50:00 -- f.Filter ="客户=\'张三\'" |
| -- 作者：hrlong -- 发布时间：2018/8/23 13:34:00 -- dim f As New Filler f.Filter ="日期 < #" & Date.Today & "#" f.SourceTable = DataTables("订单") \'指定数据来源 f.SourceCols = "产品,客户" \'指定数据来源列 f.DataTable = DataTables("统计") \'指定数据接收表 f.DataCols = "产品,客户" \'指定数据接收列 f.Fill() \'填充数据 但是我这个加上去后，判断的是订单表的日期列；我要判断的是统计表的日期列，或者说是 统计表的日期列的最近一天的日期小于订单表的最近一体的日期时，执行订单表数据填充到统计表中，如果两个日期相等，那就不执行导入
|
| -- 作者：有点蓝 -- 发布时间：2018/8/23 14:22:00 -- Dim d1 As Date = DataTables("统计").Compute("max(日期)") Dim d2 As Date = DataTables("订单").Compute("max(日期)") If d1 < d2 Then 导入的代码 End If
|
| -- 作者：hrlong -- 发布时间：2018/8/23 14:22:00 -- 好的 十分感谢
[此贴子已经被作者于2018/8/23 14:24:20编辑过]
|