主题：addselect从数据库读取数值放回么

httpRequest代码

 

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","列表项目")
            .AddSelect("os","操作系统","|iOS|Windows|Andriod")
            .AddSelect("bw","浏览器","|Chorme|[Edge]|Firefox|Internet Explorer")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        Dim str As String = "Windows"
        wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
        wb.AppendHTML("<script>display(""os"",""" & str & """)</script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
End Select

 

test.js 代码

 

function display(selectID, optionValue){
   var all_options = document.getElementById(selectID).options;
   for (i=0; i<all_options.length; i++){
      if (all_options[i].innerHTML == optionValue)  // 根据option标签的ID来进行判断  测试的代码这里是两个等号
      {
         all_options[i].selected = true;
      }
   }
};

 用2楼的方法吧，你这样不专业。

 

 这样做的效果是会有重复选项。

这样写

 

wb.AppendHTML("<script>auto_display('szs', '" & suozaisheng & "', 'szshi', '" & suozaishi & "', 'szqx', '" & suozaixian & "'")</script>") '引入脚本文件(所在省)

或者，原来的js代码不变，这样写

 

wb.AppendHTML("setAjaxOptions('szshi','p_quyu_get.htm','szs',false)</script>")

wb.AppendHTML("<script>auto_display(""szshi"",""" & suozaishi & """)</script>") '引入脚本文件(所在市)

 

把代码拷贝2份即可

或者是，你在生成网页的时候，就根据 所在省 的值，直接给控件 所在市 赋值，也是可以的。（参考所在省的方式，只是条件不同而已）

js代码改成8楼。

 

或者，看11楼、12楼方法。