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