主题：同一网页读取值

 Dim a月1 As String = " "

                  For Each a月2 As String In dt.getvalues("月"，“年=”)

                      a月1 = a月1 & "<Option  value = '" & a月2 & "' >" & a月2 & "</Option>"

                 Next

                  Dim a月 As String = "<p  style='width:15.5%;height:50px;float: left;'><span style='font-size:20px;float:left;margin: 10px 0px 10px 10px;height:30px;'>月：</span><select  style='margin:10px 0px 10px 0px;width:180px;font-size:20px;float:left;border: 1px solid #dcd628;height:30px;border-radius:10px;text-align: center;' name='月' >" & a月1 & " </select></p>"