请教andymark：这个排序vba应作如何修改？

cyber-bobo · 发表于 2006-10-14 16:35:00

原排序条件：每两个产品ID更换一个打印ID，相同产品ID的记录按一条记录处理。

现想更改为：先将日期与当前日期比较，每月25号为分界线分开后再按原条件排序。

如例子中，先按日期分成10月25日前为一部分，10月26日至11月25日为一部份，11月26日至12月25日为一部份，然后各部份再按原条件排序，但各部份的排序号不能重复。

希望你能明白我想说什么，谢谢！

andymark · 发表于 2006-10-14 17:47:00

到货日期空值的怎样处理,归属那个时间段

cyber-bobo · 发表于 2006-10-14 18:33:00

sorry，刚刚跑出去吃早餐，到货日期空值的按另一部份处理，谢谢！

[此贴子已经被作者于2006-10-14 11:52:31编辑过]

cyber-bobo · 发表于 2006-10-14 20:02:00

唉，我的基础实在太差了，做了一上午都没办法做出来啊！

hi-wzj · 发表于 2006-10-14 22:26:00

'自定义结帐日的归属月份函数。即本月25日前算本月，26日后归入下个月。
Function 结帐月(日期 As Date, 结帐日 As Byte)
结帐月 = Format(DateSerial(Year(日期), Month(日期 - 结帐日) + 1, 1), "yy-mm")
End Function

根据得出的归属月分类打印。

andymark · 发表于 2006-10-14 23:38:00

cyber-bobo · 发表于 2006-10-15 01:04:00

未能做到“到货日期”空值的按另一部份处理的要求！

cyber-bobo · 发表于 2006-10-15 01:12:00

sorry,是我把条件改了一下，谢谢你的劳动！

andymark · 发表于 2006-10-15 01:14:00

以下是引用cyber-bobo在2006-10-14 17:04:00的发言：
未能做到“到货日期”空值的按另一部份处理的要求！

查询1和想要的结果不一样吗?

cyber-bobo · 发表于 2006-10-15 01:23:00

是我的错，现在想把条件改为“到货日期”空值的按另一部份处理，也就是一共分为三部份来处理！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 请教andymark：这个排序vba应作如何修改？

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)