【裸捐】慈善的光芒---查询问题求解

todaynew

　　巴菲特和盖茨两同志不远万里来到中国，欲向50名中国富豪发出邀请后，诸位富豪因害怕劝捐不敢应邀。老汉钱不太多，在Office中国论坛赚了９０００余元大毛，希望裸捐出来支助Access贫困版友学习。捐不能白捐了，要有点意义，起点作用，因此决定奖励给三好学生。便打算这样个搞法：

　

　　老汉将不定期的出一些简单的问题，你如果想取老汉的银子，就需要解决这些问题。只要能解决部分或者全部，老汉就动用版主的权利给你发钱（这属于向政府筹款部分）。如果回答的人数多，就在其中遴选出最佳答案，将老汉的银子奖励给你（这属于老汉裸捐形成的奖励基金）。最后你再将佳作单独发贴卖钱，老汉给你再加精带花做广告，你可以继续忽悠很多银子（这属于向民间筹款）。你可以算算，这个买卖是不是合算，是不是一个快速致富的路子。

　

　　如果你的银子很多（超过３０００分的就算很多吧），你就别来玩这个游戏，你来了也不给你钱。你说这不对吧，好像不公平。你银子多就应该学习老汉，拿出来裸捐，还赚这个小钱干嘛。这样一说你就理解了，也就不上访，不告状了。

　

　　今天的这个问题是关于查询的问题，也是所有初学者最想干又经常干不好的事情。你有兴趣就解解看，你如果在最短的时间得出最佳的答案，你就有可能得到许多银子。

　

功能要求：

　

1、按照商品名称和销售形式对子窗体进行筛选。（1分）

　

2、按照查询日期筛选出前溯一年内的记录  （2分）

　

3、计算出满足查询日期、商品名称、销售形式三条件的最后若干次（抽样次数）的平均价格，并按照图示在子窗体中显示出来。查询日期、商品名称、销售形式均非空。(5分）

　

4、具有一定的容错性，各种技巧搭配得当，代码简洁可读性强。按最早答出者，作为最佳答案。（20分）

   

　　请将答案跟在本帖后面，并自己想办法确保别人化代价获得你的代码。比如你可以出售，或者加密（密码站内短消息给老汉），十八般武艺你自己去想好了。

              

huxinhua

支持老汉!

ycxchen

晕，为何我在“计算”按钮代码后加入19楼的代码：
Me.子窗体.OrderBy="日期"
Me.子窗体.OrderByOn=True
运行时，出现“方法或成员未找到的提示”的，如何解决？

zww3008

同志们兴趣不高。那就公布我的参考答案算了。
todaynew 发表于 2010-9-19 19:35

有一定难度，而且题量太多。可以出些如何解决“一个”问题的点子贴。

todaynew

同志们兴趣不高。那就公布我的参考答案算了。

zww3008

没太理解你的意思，你说的排序是指什么？最后结果要按升序吗？如果是这样的话，很好办，在最后设置一下子窗体的排序属性就行了：
Me.子窗体.OrderBy="日期"
Me.子窗体.OrderByOn=True

我遇到过好几次使用这样代码无效的时候。百思不得其解。情况是：
主窗体加数据表子窗体，子窗体数据源没有采用查询，而是直接采用表，
窗体是原先已经建好的，且之前并无排序要求，后来才加进这样的代码，
想得到排序效果，怎么试都无效。后来删除并重建数据表子窗体，
再采用这个代码有有效了。不过直到现在还不得知问题出在哪。

红尘如烟

老汉，把毛片交出来……

todaynew

没太理解你的意思，你说的排序是指什么？最后结果要按升序吗？如果是这样的话，很好办，在最后设置一 ...
红尘如烟 发表于 2010-9-18 00:37

就是这玩意。

红尘如烟

感谢红尘同志，老汉终于不用裸奔了。

解法最接近我的思路，其中平均价的处理比我的要优。
不过还 ...
todaynew 发表于 2010-9-17 20:01

没太理解你的意思，你说的排序是指什么？最后结果要按升序吗？如果是这样的话，很好办，在最后设置一下子窗体的排序属性就行了：
Me.子窗体.OrderBy="日期"
Me.子窗体.OrderByOn=True

todaynew

偶是来捣乱的……

好了，老汉，答案我给出来了，把毛片交出来！！！
红尘如烟 发表于 2010-9-17 19:27

感谢红尘同志，老汉终于不用裸奔了。

解法最接近我的思路，其中平均价的处理比我的要优。
不过还需将子窗体的记录按日期排序，你目前是逆序。对这个问题你怎么处理？我想到了一个比我先前简单的办法，不知道你会不会是这个办法。

todaynew

同志们的热情似乎不高涨。
ycxchen 发表于 2010-9-17 15:05

看来是这样。
可能由于诈捐事件层出不穷，同志们对于慈善事业有些冷漠，呵呵。