Private Sub Command1_Click()
WebBrowser1.Document.Form1.prov.Value = "14"
'通过onhange方法更新二级下拉列表
WebBrowser1.Document.Form1.prov.onchange
WebBrowser1.Document.Form1.city.Value = "2"
'各省的城市对应值可从"http://tanaer.60450.cn1/city.js"得到,以上以"山西"--"大同"为例
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://tanaer.60450.cn"
Command1.Caption = "填充"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024