Office中国论坛/Access中国论坛

标题: 组合框赋值 [打印本页]

作者: sbadwaps 时间: 2009-3-7 12:18
标题: 组合框赋值
<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 时间: 2009-3-7 12:32
<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 时间: 2009-3-7 12:41
本帖最后由 sbadwaps 于 2009-3-7 12:56 编辑

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

作者: sbadwaps 时间: 2009-3-8 21:47
value=""108185 ""> 这个无法引用
请达人能不能帮根据“符石园”反过来得出OPTION 的value值，我看换个方式能成功与否？
谢谢你的支持

作者: sbadwaps 时间: 2009-3-10 19:14
本帖最后由 sbadwaps 于 2009-3-10 19:16 编辑

本人自问自答，经过辛苦的搜索，总算得出正确的作法，
这论坛的人气，我很伤心
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 时间: 2010-9-4 09:49
看看！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)