Vb6 webbrowser populate a drop-down list-CodePudding

I need to use vb6 webbrowser control directly modify the value of drop-down list
 
& lt; ! PUBLIC DOCTYPE HTML "-////W3C DTD HTML 4.0 Transitional//EN" & gt; 
& lt; ! - saved from url=(0096) - http://10.50.33.21/aqgl/BPO_yhzgtzdForm.aspx & gt; 
& lt; HTML XMLNS: TSNS XMLNS: MPNS XMLNS: TBNS> & lt; HEAD> & lt; TITLE> Edit & lt;/TITLE> 
& lt; SCRIPT language=javascript> Var UCMLSkinPath='Skin/ucmlstd/'; & lt;/SCRIPT> 

& lt; SCRIPT language=javascript> Var UCMLSkinPath='Skin/ucmlstd/'; & lt;/SCRIPT> 
& lt; The LINK rel=stylesheet type="text/CSS href=" https://bbs.csdn.net/topics/editor _files/ucmlapp. CSS & gt; & lt; The LINK 
Rel=stylesheet type="text/CSS href=" https://bbs.csdn.net/topics/editor _files/module. CSS "& gt; & lt; The LINK rel=stylesheet 
Type="text/CSS href=" https://bbs.csdn.net/topics/editor _files/default CSS "& gt; & lt; LINK rel=stylesheet type="text/CSS 
Href="https://bbs.csdn.net/topics/editor _files/skin. CSS" & gt; & lt; LINK rel=stylesheet type="text/CSS 
Href="https://bbs.csdn.net/topics/editor _files/container. CSS" & gt; 
& lt; META content="text/HTML. Charset=utf-8 "HTTP - equiv=Content - Type> 
& lt; META content=HTTP - equiv=X - IE=EmulateIE7 UA - Compatible> 
& lt; META content=HTTP - equiv=X - IE=7 UA - Compatible> 
& lt; SCRIPT language=javascript type=text/javascript 
SRC="https://bbs.csdn.net/topics/editor _files/JSRule js" & gt; & lt;/SCRIPT> 
} 
& lt;/STYLE> 

& lt; SCRIPT language=javascript type=text/javascript> 
Var UCMLResourcePath=""; 
Var UCMLLocalResourcePath=""; 
Var BPOName="BPO_yhzgtzdForm"; 
The function the Init () 
{
Var dobject=window. The document. All [" UCMLBUSIOBJECT "]; 
If (dobject==undefined) return; 
BPO_yhzgtzdFormBPO. The open (); 
BC_a_yhzgtzdBase. FIDENTITYKey=false; 
BC_a_yhzgtzdBase. AllowModifyJION=false; 
BC_a_yhzgtzdBase. FHaveUCMLKey=true; 
BC_a_yhzgtzdBase. PrimaryKey="a_yhzgtzdOID"; 
BC_a_yhzgtzdBase. Columns=BPO_yhzgtzdFormBPO. BC_a_yhzgtzdColumns; 
BC_a_yhzgtzdBase. BPOName="BPO_yhzgtzdForm"; 
BC_a_yhzgtzdBase. ChangeOnlyOwnerBy=false; 
BC_vw_ayhlx_swBase. FIDENTITYKey=false; 
BC_vw_ayhlx_swBase. AllowModifyJION=false; 
BC_vw_ayhlx_swBase. FHaveUCMLKey=true; 
BC_vw_ayhlx_swBase. PrimaryKey="vw_ayhlx_swOID"; 
BC_vw_ayhlx_swBase. Columns=BPO_yhzgtzdFormBPO. BC_vw_ayhlx_swColumns; 
BC_vw_ayhlx_swBase. BPOName="BPO_yhzgtzdForm"; 
BC_vw_ayhlx_swBase. ChangeOnlyOwnerBy=false; 
BC_vw_ayhlx_swBase. TableType="A"; 
BC_vw_yhzgxxkBase. Columns=BPO_yhzgtzdFormBPO. BC_vw_yhzgxxkColumns; 
BC_vw_yhzgxxkBase. BPOName="BPO_yhzgtzdForm"; 
BC_vw_yhzgxxkBase. TableType="S"; 
BC_vw_yhzgxxkBase. FIDENTITYKey=false; 
BC_vw_yhzgxxkBase. AllowModifyJION=false; 
BC_vw_yhzgxxkBase. FHaveUCMLKey=true; 
BC_vw_yhzgxxkBase. PrimaryKey="vw_yhzgxxkOID"; 
BC_vw_yhzgxxkBase. LinkKeyName="a_swlx_FK"; 
BC_vw_yhzgxxkBase. PK_COLUMN_NAME="vw_ayhlx_swOID"; 
BC_vw_yhzgxxkBase. MasterTable=BC_vw_ayhlx_swBase; 
BC_vw_yhzgxxkBase. ChangeOnlyOwnerBy=false; 
BC_a_spdwBase. FIDENTITYKey=false; 
BC_a_spdwBase. AllowModifyJION=false; 
BC_a_spdwBase. FHaveUCMLKey=true; 
BC_a_spdwBase. PrimaryKey="a_spdwOID"; 
BC_a_spdwBase. Columns=BPO_yhzgtzdFormBPO. BC_a_spdwColumns; 
BC_a_spdwBase. BPOName="BPO_yhzgtzdForm"; 
BC_a_spdwBase. ChangeOnlyOwnerBy=false; 
BC_a_spdwBase. TableType="A"; 

VC_a_yhzgtzdForm. UserDefineHTML="true"; 
BC_a_yhzgtzdBase. AddConnectControls (VC_a_yhzgtzdForm); 
VC_a_yhzgtzdForm. BPOName="BPO_yhzgtzdForm"; 
VC_a_yhzgtzdForm. AppletName="VC_a_yhzgtzdForm"; 
VC_a_yhzgtzdForm. EnabledEdit=true; 
VC_a_yhzgtzdForm. HaveMenu=false; 
VC_a_yhzgtzdForm. HiddenID="TabStrip_VC_a_yhzgtzdForm; MultiPage_VC_a_yhzgtzdForm "; 
VC_a_yhzgtzdForm. FHidden="false"; 
VC_a_yhzgtzdForm. AlignHeight="false"; 
VC_a_yhzgtzdForm. AlignWidth="false"; 
VC_a_yhzgtzdForm. ParentNodeID=""; 


VC_a_yhzgtzdForm. The open (); 
BC_a_yhzgtzdBase. EnabledEdit=true; 
BC_a_yhzgtzdBase. EnabledAppend=true; 
BC_a_yhzgtzdBase. EnabledDelete=true; 
BC_a_yhzgtzdBase. RecordOwnerType=0; 
BC_a_yhzgtzdBase. The open (); 
BPO_yhzgtzdFormBPO. AddUseTable (BC_a_yhzgtzdBase); 
DataFld=f_bh & gt; & lt;/TD> 
& lt; TD style="TEXT - ALIGN: right" id=f_kqLabel class=UCML - LabelCell noWrap> 
& lt; DIV id=f_kqLabelValue class=UCML - LabelText> Mining area name & lt; The FONT 
Color=red> * & lt;/FONT> & lt;/DIV> & lt;/TD> 
& lt; TD id=f_kqCell class=UCML - InputCell noWrap> & lt; Select the name="select" class=UCML - DropDownList id=f_kqEdit 
Style="WIDTH: 100%; HEIGHT: 19 px "
Datafld=f_kq & gt; 
& lt;/select> & lt;/TD> 
& lt; TD style="TEXT - ALIGN: right" id=f_zrdwLabel class=UCML - LabelCell noWrap> 
& lt; DIV id=f_zrdwLabelValue class=UCML - LabelText> Responsibility unit & lt; FONT color=red> * & lt;/FONT> & lt; null