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

Dim e As RequestEventArgs = args(0) '验证页面(注册第2页)

Dim wb As New weui

Dim huiybh As String = e.PostValues("hybh") '定义,会员编号

Dim ibianh As String = e.PostValues("ibianh") '定义,员工编号

Dim igl As DataRow '定义,查找会员(客服等官方人员)管理的行

If huiybh <> "" AndAlso ibianh <> "" Then

igl = DataTables("会员资料").SQLFind("会员编号 = '" & huiybh & "' and (客服_编号 = '" & ibianh & "' or 经理_编号 = '" & ibianh & "' or 管理_编号 = '" & ibianh & "' )")

Else

e.WriteString("数据传递错误,你可能断网了!")

Return ""

End If

If igl IsNot Nothing Then

msgbox（1）’执行了

wb.InsertHTML("<meta http-equiv='Re-fresh' con-tent='0; ur-l=/guanli_soushy.htm'>") '跳转页面

无法跳转页面

guanli_soushy.htm，可以正常进入

Else

e.WriteString("没有找到会员!")

Return ""

End If

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

[此贴子已经被作者于2017/7/24 20:01:25编辑过]

函数外部是怎么调用的，有没有返回，是不是后面有其它代码

Functions.Execute("xxxx",e)

return

外部函数这样调用的

Case "guanli_soushy.htm" ’1楼代码跳转后进入的页面，输入guanli_soushy.htm，可以进入页面，但是就是无法实现1楼的跳转

Functions.Execute("guanli_soushy",e)

return ’加了return，还是没有跳转

Case "guanli_soushy1.htm" ’1楼代码的页面

Functions.Execute("guanli_soushy1",e)

[此贴子已经被作者于2017/7/25 8:28:33编辑过]

1、试试

e.response.Redirect("新地址")

2、如果你用ajax调用的话，你要在你的js里面跳转，不能直接在代码跳转

http://www.foxtable.com/mobilehelp/scr/0129.htm

http://www.foxtable.com/mobilehelp/scr/0258.htm

因为涉及ajax调用，用上面页面的跳转方法，可以在js里实现网页跳转，哎菜鸟啊，还有个问题，见红字粗体

跳转js代码如下：

function validit_guanli_soushy0(){

alert("ok");

var result = submitAjaxForm('form1','',false);

if (result =='OK') {

location="guanli_soushy.htm"}

else if (result =='没有找到会员!') {show('dlg1')}

else if (result =='数据传递错误,你可能断网了!') {show('dlg2')}

}

页面代码红色部分改为：

Dim e As RequestEventArgs = args(0) '验证页面(注册第2页)

Dim wb As New weui

Dim huiybh As String = e.PostValues("hybh") '定义,会员编号

’想传递huiybh到跳转后的页面，js里面

location="guanli_soushy.htm？a=huiybh "

这种怎么实现？

Dim ibianh As String = e.PostValues("ibianh") '定义,员工编号

Dim igl As DataRow '定义,查找会员(客服等官方人员)管理的行

If huiybh <> "" AndAlso ibianh <> "" Then

igl = DataTables("会员资料").SQLFind("会员编号 = '" & huiybh & "' and (客服_编号 = '" & ibianh & "' or 经理_编号 = '" & ibianh & "' or 管理_编号 = '" & ibianh & "' )")

Else

e.WriteString("数据传递错误,你可能断网了!")

Return ""

End If

If igl IsNot Nothing Then

e.WriteString(“OK”)

Return ""

Else

e.WriteString("没有找到会员!")

Return ""

End If

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

[此贴子已经被作者于2017/7/25 9:58:45编辑过]

e.WriteString("OK-" & huiybh)

js代码改一下

var ary = result.split("-")

if (ary[0] == 'OK') {location="guanli_soushy.htm?a=" + ary[1]}

主题：无法跳转页面