主要用于自动填表,解决联动下拉框。
省 的自动选择成功后,市级、县级都需要手动点击才显示,
用审查元素测试,发现可以直接 ”市“ 级选择时,在这里面增强一行选项代码即可。只是本人初用VB,不知如何用vb webbrowser在指定位置上插入代码,或修改成想要的?
请教!
<select id="Area">
<option value="">选择区县</option>
</select>
希望改成:
<select id="Area">
<option value="">选择区县</option>
<option value="320100">吴江市</option>
</select>
省 的自动选择成功后,市级、县级都需要手动点击才显示,
用审查元素测试,发现可以直接 ”市“ 级选择时,在这里面增强一行选项代码即可。只是本人初用VB,不知如何用vb webbrowser在指定位置上插入代码,或修改成想要的?
请教!
<select id="Area">
<option value="">选择区县</option>
</select>
希望改成:
<select id="Area">
<option value="">选择区县</option>
<option value="320100">吴江市</option>
</select>
W1.Document.All.tags("option").Item(i).innerHtml = W1.Document.All.tags("option").Item(i).innerHtml & "</OPTION>" & "<br><OPTION value=320506 >苏州2"
在<option value="">选择区县</option> 后加 "</OPTION> <OPTION value=320506 >苏州2"没用呀在
忘了去掉一些不相关代码(虽然不影响)W1.Document.All.tags("option").Item(i).innerHtml = W1.Document.All.tags("option").Item(i).innerHtml & "</OPTION>" & "<br><OPTION value=320506 >苏州2"
在<option value="">选择区县</option> 后加 "<OPTION value=320506 >苏州2</OPTION>"
</OPTION>是闭合标签,要放在后面的
在<option value="">选择区县</option> 后加 "<OPTION value=320506 >苏州2</OPTION>"
</OPTION>是闭合标签,要放在后面的
第一次就是这样做的呀追加
<OPTION value=320506 >苏州2</OPTION>不成功,
得出来的效果是显示text是:选择城市<OPTION value=320506 >苏州2</OPTION>所以,后来想到构造成:选择城市</OPTION><OPTION value=320506 >苏州2</OPTION>就出现了上面的结果。还是不行(同时我把选择城市直接改成了 苏州市,截图时在再试这个了,所以截图不完全一样)就是输什么代码就进去,最终还是文本形式。
w=W1.Document.All.tags("option").Item(i)w.innerHtml = w.innerHtml & 代码 这种方式吧!后面想到偏方,基础不扎实又要迅速达到目的,完成。于是就干脆把“选择城市”的 value 和 innertext都直接赋值了,也成功提交了,这样结果事实比增加选项还更高效直接。
好像还没必在 添加了。也就是解决了。但我得学会,所以继续请教。
感谢