后续
前面介绍了用户归档+ListView控件制作报表的步骤,这篇是前面文章的后续,主要是在后面的实际应用中,需要存储的信息不止一组,可能分别存储在多个数据表中,根据查询条件的不同来定义不同的查询字符串。
我们可以通过两个或多个按钮,添加不同的脚本来实现,但是这样显然不够简洁,毕竟大部分代码是重复的,是可以合并起来用的,其次按钮一多也不美观。这里用的方法是添加一个选项组控件(或者复选框控件),鼠标点击不同选项,控件的“Process”属性值也会不同,配合Case语句来给查询字符串赋不同的值。
实现方法
修改查询或者导出按钮的脚本,主要是查询字符串的代码。选项组的“Process”值是20,21,22,…2n-1(n表示第n个选项),Case语句里面修改相应的字符串文本即可。
Dim SL,sSql