组合框赋值

sbadwaps

<TD class=normal align=left colSpan=3><SPAN id=Person><SELECT id=PersonList
onchange=ChangePerson(this.value) name=PersonList><OPTION value=0
selected>选择成员</OPTION><OPTION value=108180>符日照</OPTION><OPTION
value=""108185 "">符石园</OPTION></SELECT> </SPAN></TD></TR>



上面为网页


用WebBrowser控件显示

使用下面

Me.WebBrowser.Object.Document.all("PersonList").Value = "符日照"

无效
请高手要如何书写才能达到目的

ACMAIN_CHM

<TD class=normal align=left colSpan=3>
<SPAN id=Person>
    <SELECT id=PersonList onchange=ChangePerson(this.value) name=PersonList>
        <OPTION value=0 selected>选择成员</OPTION>
        <OPTION value=108180>符日照</OPTION>
        <OPTION value=""108185 "">符石园</OPTION>
    </SELECT>
</SPAN></TD></TR>


注意下value的值。 '符日照'只不过是 innerText，不是value，和ACCESS中的combox的显示列与绑定列类似。


Me.WebBrowser.Object.Document.all("PersonList").Value = 108180


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

sbadwaps

Me.WebBrowser.Object.Document.all("PersonList").Value = 108180
是有效的,
Me.WebBrowser.Object.Document.all("PersonList").Value = ""108185 ""又无效了要如何用?
value=""108185 "">  这个要如何用?

sbadwaps

value=""108185 "">  这个无法引用
请达人能不能帮根据“符石园”反过来得出OPTION 的value值，我看换个方式能成功与否？
谢谢你的支持

sbadwaps

本人自问自答，经过辛苦的搜索，总算得出正确的作法，
这论坛的人气，我很伤心
Dim Vdoc, i, S As String
For i = 0 To W1.Document.All.length - 1
Set Vdoc = W1.Document.All(i)
If UCase(Vdoc.tagName) = "option" Or UCase(Vdoc.tagName) = "OPTION" Then

If Vdoc.Text = "符石园" Then '先找你要的某个选项的纯文本值,这里的符石园显然可以使用ME.姓名
Vdoc.Selected = True '然后设置成选项
End If

End If
DoEvents
Next i


更伤心的，我的ACCESS开发者，为什么关了呢，我可是混了好久的地方啊，伤心伤心

bpchan

看看！！