Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何写Merger筛选代码


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

主题：如何写Merger筛选代码
帅哥哟，离线，有人找我吗？
czy66ds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		如何写Merger筛选代码  发帖心情 Post By：2013/9/21 14:35:00 [只看该作者]

“Merger

示例七

合并Excel文件:

Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并”

------以上是摘自狐表使用指南中的一段----------

下边我开问：

 

假定我要合并超过某个固定日期后的记录可以加上一行代码，如：
mg.Filter = "[日期] > #5/31/1999#" '指定合并条件

假定这起始日期由用户指定，那么加一行代码：
 Dim Val As Date
 InputValue(Val, "筛选","请输入开始合并的日期:")

我的问题是：随后的筛选条件该如何写？
是这样吗:
mg.Filter = "[日期] > # "& val &" #"

请指点。
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2013/9/21 15:34:00 [只看该作者]

我自己顶

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/21 20:18:00 [只看该作者]

 如下代码

Dim Val As Date
InputValue(Val, "筛选","请输入开始合并的日期:")
Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单$" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Filter = "[日期] > #"& val & "#"
mg.Merge() '开始合并"
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2013/9/22 11:59:00 [只看该作者]

谢谢回复、帮助。但是还是不按指定条件筛选。我把项目发上去了，请进一步帮助看看。谢谢了。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

经过测试没有任何问题


Dim Val As Date
InputValue(Val, "筛选","请输入开始合并的日期:")
Dim mg As New Merger
mg.SourcePath = "C:\Users\foxtable1\Desktop\管理项目3\管理项目3\示例文件.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "本月入库$" '指定要合并的表
mg.DataTableName = "本月入库" '指定接收数据的表
mg.Filter = "[日期] > #"& val & "#"
mg.Merge() '开始合并"
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1684 积分：16374 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2013/9/22 15:56:00 [只看该作者]

经我用BIN提供的代码测试，筛选成功。但是，为什么我用我的项目3中代码就不灵呢？都差不多呀！但仔细一看我发现我的筛选语句有二条：

 

 mg.Filter = "[日期] >= # " & val & " # "

 mg.Filter = "[款号] Is Not Null"

进一步测试，屏蔽了第二条就好使了！

 

那么这是否就意味着不能连续写二条以上mg.Filter = ...语句呢？

 

如果是这样，这两条如何写到一条里呢？

 

请指教。（我一见这个单引号双引号、&、and就晕）
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

晕你不能写两条的,这样会被第二个覆盖掉.如果你要实现这两个条件你应该用 AND 


mg.Filter = "[日期] >= #" & val & "# and [款号] Is Not Null"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询