投票选项 | " TempStr = TempStr & "得票柱状图 | " TempStr = TempStr & "百分比 | " TempStr = TempStr & "
" & rs(0) & " | " TempStr = TempStr & "" & rs(1) & " | " TempStr = TempStr & "" dim perVote:perVote=round(rs(1)/totalVote,4) TempStr = TempStr & "" perVote=perVote*100 if perVote<1 and perVote<>0 then TempStr = TempStr & " 0" & perVote & "%" else TempStr = TempStr & " " & perVote & "%" end if TempStr = TempStr & " | " TempStr = TempStr & "