vb6 webbrowser填充下拉列表
我需要用vb6 的webbrowser控件直接修改下拉列表的值
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0096)http://10.50.33.21/aqgl/BPO_yhzgtzdForm.aspx -->
<HTML XMLNS:TSNS XMLNS:MPNS XMLNS:TBNS><HEAD><TITLE>编辑</TITLE>
<SCRIPT language=javascript>var UCMLSkinPath='Skin/ucmlstd/';</SCRIPT>
<SCRIPT language=javascript>var UCMLSkinPath='Skin/ucmlstd/';</SCRIPT>
<LINK rel=stylesheet type=text/css href="编辑_files/ucmlapp.css"><LINK
rel=stylesheet type=text/css href="编辑_files/module.css"><LINK rel=stylesheet
type=text/css href="编辑_files/default.css"><LINK rel=stylesheet type=text/css
href="编辑_files/skin.css"><LINK rel=stylesheet type=text/css
href="编辑_files/container.css">
<META content="text/html; charset=utf-8" http-equiv=Content-Type>
<META content=IE=EmulateIE7 http-equiv=X-UA-Compatible>
<META content=IE=7 http-equiv=X-UA-Compatible>
<SCRIPT language=javascript type=text/javascript
src="编辑_files/JSRule.js"></SCRIPT>
}
</STYLE>
<SCRIPT language=javascript type=text/javascript>
var UCMLResourcePath="";
var UCMLLocalResourcePath="";
var BPOName="BPO_yhzgtzdForm";
function Init()
{
var dobject=window.document.all["UCMLBUSIOBJECT"];
if (dobject==undefined) return;
BPO_yhzgtzdFormBPO.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.open();
BC_a_yhzgtzdBase.EnabledEdit=true;
BC_a_yhzgtzdBase.EnabledAppend=true;
BC_a_yhzgtzdBase.EnabledDelete=true;
BC_a_yhzgtzdBase.RecordOwnerType=0;
BC_a_yhzgtzdBase.open();
BPO_yhzgtzdFormBPO.AddUseTable(BC_a_yhzgtzdBase);
dataFld=f_bh> </TD>
<TD style="TEXT-ALIGN: right" id=f_kqLabel class=UCML-LabelCell noWrap>
<DIV id=f_kqLabelValue class=UCML-LabelText>矿区名称<FONT
color=red>*</FONT></DIV></TD>
<TD id=f_kqCell class=UCML-InputCell noWrap><select name="select" class=UCML-DropDownList id=f_kqEdit
style="WIDTH: 100%; HEIGHT: 19px"
datafld=f_kq>
</select> </TD>
<TD style="TEXT-ALIGN: right" id=f_zrdwLabel class=UCML-LabelCell noWrap>
<DIV id=f_zrdwLabelValue class=UCML-LabelText>责任单位<FONT color=red>*</FONT><INPUT style="HEIGHT: 24px" id=SelPerson value=选择 type=button></DIV></TD>
webbrowser
vb6
补充:VB , 网络编程