后續(xù)
??前面介紹了用戶歸檔+ListView控件制作報(bào)表的步驟脱拼，這篇是前面文章的后續(xù)艇潭，主要是在后面的實(shí)際應(yīng)用中，需要存儲(chǔ)的信息不止一組抛人，可能分別存儲(chǔ)在多個(gè)數(shù)據(jù)表中弛姜，根據(jù)查詢條件的不同來定義不同的查詢字符串脐瑰。
??我們可以通過兩個(gè)或多個(gè)按鈕，添加不同的腳本來實(shí)現(xiàn)廷臼，但是這樣顯然不夠簡潔苍在，畢竟大部分代碼是重復(fù)的，是可以合并起來用的荠商，其次按鈕一多也不美觀寂恬。這里用的方法是添加一個(gè)選項(xiàng)組控件（或者復(fù)選框控件），鼠標(biāo)點(diǎn)擊不同選項(xiàng)莱没，控件的“Process”屬性值也會(huì)不同初肉，配合Case語句來給查詢字符不同的定義。
選項(xiàng)組控件
實(shí)現(xiàn)方法
??修改查詢或者導(dǎo)出按鈕的腳本饰躲，主要是查詢字符串的代碼牙咏。選項(xiàng)組的“Process”值是20,21,22,...2n-1（n表示第n個(gè)選項(xiàng)）臼隔，Case語句里面修改相應(yīng)的字符串文本即可。
Dim SL,sSql
Set SL=ScreenItems("選項(xiàng)組1")
Select Case SL.Process
Case 1
sSql = "select * from UA#test3 where act_time between '"& dt1 & "'" & "and '" & dt2 & "'"
Case 2
MsgBox "暫無數(shù)據(jù)庫"
Case 4
MsgBox "也沒有數(shù)據(jù)庫"
End Select
