设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2328|回复: 5
打印 上一主题 下一主题

[Access本身] 组合框赋值

[复制链接]
跳转到指定楼层
1#
发表于 2009-3-7 12:18:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<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 = "
符日照"


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

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-3-7 12:32:58 | 只看该作者
<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 .
3#
 楼主| 发表于 2009-3-7 12:41:04 | 只看该作者
本帖最后由 sbadwaps 于 2009-3-7 12:56 编辑

Me.WebBrowser.Object.Document.all("PersonList").Value = 108180
是有效的,
Me.WebBrowser.Object.Document.all("PersonList").Value = ""108185 ""又无效了要如何用?
value=""108185 "">  这个要如何用?
4#
 楼主| 发表于 2009-3-8 21:47:05 | 只看该作者
value=""108185 "">  这个无法引用
请达人能不能帮根据“符石园”反过来得出OPTION 的value值,我看换个方式能成功与否?
谢谢你的支持
5#
 楼主| 发表于 2009-3-10 19:14:31 | 只看该作者
本帖最后由 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开发者,为什么关了呢,我可是混了好久的地方啊,伤心伤心
6#
发表于 2010-9-4 09:49:25 | 只看该作者
看看!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 15:02 , Processed in 0.087809 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表