超链接跳转不成功 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 超链接跳转不成功

共有3713人关注过本帖树形打印复制链接主题：超链接跳转不成功

liuruihua	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	超链接跳转不成功 Post By：2020/2/4 14:51:00 [只看该作者] 用户已被锁定

有点蓝

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

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/4 15:28:00 [只看该作者]

代码给完整，这样很难分析问题。

第一段代码是哪个网页进来的？完整代码发上来

同一个域名的网页，不需要写全的：.Add("btn4", "访问主页", "", "qq.htm")

有点蓝

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

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/4 16:21:00 [只看该作者]

If e.Host = "okokqq.com" Or e.Host = "www.okokqq.com" Or e.Host = "127.0.0.1" Then

Dim wb As new WeUI

Select Case e.path

Case ""

With wb.AddArticle("","ar13")

.AddImage("./images/sy.jpg")

End With

With wb.AddButtonGroup("","btngrp1")

.Add("btn4", "访问主页", "", "qq.htm") '超链接

End With

e.WriteString(wb.Build) '生成网页

Case "qq.htm"

With wb.AddTabBar("", "tb1",1)

.AddPage("page1","养猪","./images/pig.png")

.AddPage("page2","养鸡","./images/chick.jpg")

.AddPage("page3","在线帮助","./images/kplr.ico")

.AddPage("page4","联系我们","./images/huaruizj.ico")

End With

e.WriteString(wb.Build)

End Select

End If

主题：超链接跳转不成功