[求助] 一段代码的疑惑！求大神帮看下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 一段代码的疑惑！求大神帮看下

共有2532人关注过本帖树形打印复制链接主题：[求助] 一段代码的疑惑！求大神帮看下

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/13 17:33:00 [显示全部帖子]

卡死说明，一直执行这些代码

Do Until .ReadyState = 4

Application.DoEvents

Loop

也就是说明你的网址dzz有问题。弹出来到浏览器测试。

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/13 17:48:00 [显示全部帖子]

呃，代码没问题，贴上可以直接测试的代码。

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/13 20:07:00 [显示全部帖子]

汗，要转一下，但不知道为什么要这样

Dim dr As Row = Tables("B2B账号记录表.网站地址表").Current

Dim zh As String = dr("账号框")

Dim mma As String = dr("密码框")

Dim dzz As String = dr("网站地址")

On Error Resume Next

With CreateObject("internetexplorer.application")

.Visible = True

.Navigate(dzz)

Do Until .ReadyState = 4

Application.DoEvents

Loop

.Document.All(cstr(zh)).Value = Tables("B2B账号记录表").Current("账号")

.Document.All(cstr(mma)).Value = Tables("B2B账号记录表").Current("密码")

End With

主题：[求助] 一段代码的疑惑！ 求大神帮看下