Office中国论坛/Access中国论坛

标题: 大家帮忙看看怎么跳转多个ID [打印本页]

作者: 这是我的小号 时间: 2014-10-25 18:09
标题: 大家帮忙看看怎么跳转多个ID
本帖最后由这是我的小号于 2014-10-27 15:25 编辑

如附件。
[attach]54876[/attach]
例如，TblID表里有2个ID，现在希望通过打开记录集，读取每个ID（事实上ID比较多，这里只列出两个而已），然后打开链接读取评分。

但是每次打开之后都只能读出第一个URL的评分：
http://detail.tmall.com/item.htm?_u=n1sscq85e5e0&id=27438632855#J_Reviews第二个ID就读不出来了，即
http://detail.tmall.com/item.htm?_u=n1sscq85e5e0&id=40176662913#J_Reviews
加粗之后总算去掉超链接了。

作者: todaynew 时间: 2014-10-25 20:01
描述问题

作者: 这是我的小号 时间: 2014-10-27 10:04

todaynew 发表于 2014-10-25 20:01
描述问题

由于之前比较急，所以只能匆匆上传了附件，现在把问题补充完毕了，麻烦您看一下？

作者: todaynew 时间: 2014-10-27 19:29
本帖最后由 todaynew 于 2014-10-28 08:42 编辑

Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
Dim i As Long
Dim k As String

rst.Open "tblID", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rst.RecordCount
      'Sleep 1000
      k = GetData(rst.Fields("ID").Value)
      rst.MoveNext
      MsgBox "评分是：" & k
Next i
rst.Close
End Sub

作者: 这是我的小号 时间: 2014-10-28 09:07

todaynew 发表于 2014-10-27 19:29
Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
Dim i As Long

这跟我之前的写法没太大区别，问题在于，由于更改URL时需要先加载html页面才能读取。这是打开后第一次点击时先后弹出来的截屏：[attach]54893[/attach]
[attach]54892[/attach]
[attach]54891[/attach]
[attach]54887[/attach]
但如果已经执行一次之后再单击按钮就会出现这种情况：
[attach]54892[/attach]
[attach]54888[/attach]
必须再单击一次才会出现这个：
[attach]54887[/attach]

我的意思是希望跳转时先加载完新页面，再进行读取。但不知道是因为缓存cookie之类还是别的原因，总之，没有一次读得准确的。

或者您可以用Debug.Print列印出来或者直接写入"TblID"表的第三个字段，就会发现第二个ID的评分根本无法显示出来的了。

作者: todaynew 时间: 2014-10-28 12:08
本帖最后由 todaynew 于 2014-10-28 12:10 编辑

这是我的小号发表于 2014-10-28 09:07
这跟我之前的写法没太大区别，问题在于，由于更改URL时需要先加载html页面才能读取。这是打开后第一次点 ...

鬼打架。
你不把msgbox放在循环里面，当然只跳一次。参见：http://www.office-cn.net/forum.php?mod=viewthread&tid=114237

作者: 这是我的小号 时间: 2014-10-28 13:31
msgbox不是在For的循环里面吗？

作者: 这是我的小号 时间: 2014-10-28 13:34

todaynew 发表于 2014-10-28 12:08
鬼打架。
你不把msgbox放在循环里面，当然只跳一次。参见：http://www.office-cn.net/forum.php?mod=vie ...

msgbox不是在For的循环里面吗？另外，您的这个示例我看过了，不知道是不是改版的原因，跳转后表里还是没有列出文章和链接。

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