以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【移动开发】苹果手机端卡网页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119377)
--  作者：133198609
--  发布时间：2018/5/23 18:18:00
--  【移动开发】苹果手机端卡网页
背景：
一个手机网页，weui框架的，通过按钮跳转其他网页，正常，通过底部菜单ActionSheet跳转之后，再通过浏览器自带的返回后页面就卡死，无法再操作。
换了三个手机操作一样，换电脑的浏览器正常。

有遇到的过的请指点一下。
因为系统基本成型，里面数据较多，不方便把项目发出来。
[此贴子已经被作者于2018/5/24 18:20:01编辑过]
--  作者：有点甜
--  发布时间：2018/5/23 18:28:00
--  
用帮助文档的代码、实例测试，有没有类似问题？如果也有问题此项目或者代码发上来测试。
--  作者：133198609
--  发布时间：2018/5/23 18:40:00
--  
有个现象，用手机操作的时候，跳转后等个六七分钟再返回，就可以正常。 我怀疑是不是我跳转后的网页设计太累赘了。
--  作者：133198609
--  发布时间：2018/5/23 18:40:00
--  
Dim e As RequestEventArgs = args(0)
Dim wb As New weui

\'订单编辑
Dim pr As DataRow \'订单
Dim srs,sjl,sxw,skh,sxl As List(of DataRow) \'订单明细集合
Dim Page As Integer \'页码变量
If e.GetValues.ContainsKey("page") Then  \'如果地址中有page参数
    Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If
If e.GetValues.ContainsKey("oid") = False Then \'如果没有传递订单编号,则新增与一个订单
    With wb.AddDialog("","dlg1", "提示","信息不存在!")
        .AddButton("btnOK","确定").Attribute = """
    End With \'利用自定义函数GetOrderID为新增订单生成编号.
Else \'如果传递了订单编号,则找出此订单进行编辑
    pr = DataTables("员工花名册").SQLFind("身份证号=\'" & e.GetValues("oid") & "\'")
    If pr Is Nothing Then \'多用户情况下,必须考虑其他用户删除订单的可能.
        wb.InSertHtml("此人员信息已被其他用户删除!")
        e.WriteString(wb.Build)
        Return ""  \'必须返回
    End If
    srs =  DataTables("员工简历").SQLSelect("身份证号=\'" & pr("身份证号")  & "\'",,"起始时间") \'获取订单明细
End If
Dim url As String = "edit.htm?page=" & page &  "&oid=" & pr("身份证号")  \'传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","zp","")
    With .AddUploader("up1","",True)
        .AllowAdd = False \'关闭文件上传功能
        .AddImage("./ftp/照片/" & pr("身份证号") & "照片.jpg")
    End With
End With
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"员工信息","员工信息"))

    With .AddInput("学历","学历","text")
        .Value = pr("学历")
        .Readonly = True
    End With
End With

\'员工简历
With wb.AddInputGroup("form1","ygjl","工作经历")
End With
If e.GetValues.ContainsKey("oid") AndAlso  srs.count > 0 Then \'如果不是新增订单,且订单明细行数大于0,则生成订单明细表格.
    With wb.AddTable("form1","detailTable") \'为了区分,明细表的名字设为detailTable
        .head.AddRow("期间","单位","岗位")
        .ActiveSheet = "menu" \'指定菜单
        If srs IsNot Nothing Then
            For Each sr As DataRow In srs
                Dim yy,mm,dd As String
                yy = sr("起始时间").Year
                mm = Format(sr("起始时间").Month,"00")
                dd = yy & "." & mm
                
                Dim yy1,mm1,dd1 As String
                If sr.IsNull("终止时间") Then
                    dd1 = "至今"
                Else
                    yy1 = sr("终止时间").Year
                    mm1 = Format(sr("终止时间").Month,"00")
                    dd1 = yy1 & "." & mm1
                End If
                With .Body.AddRow( dd & "-" & dd1,sr("单位"),sr("岗位"))
                    .Primarykey = sr("_Identify") \'为此行指定主键值
                End With
            Next
        End If
    End With
End If

wb.AppendHTML("<script src=\'./lib/order.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
[此贴子已经被作者于2018/5/23 19:18:50编辑过]
--  作者：有点甜
--  发布时间：2018/5/23 21:18:00
--  

单纯看代码无法测试。

 

请做一个类似的例子发上来说明。

 

如果帮助文档的菜单例子没问题，那说明是你自己的项目代码本身有问题。请加入msgbox调试一下执行到哪里开始卡住了。（有可能是你js，特别是第三方js导致的错误）

[此贴子已经被作者于2018/5/23 21:18:49编辑过]
--  作者：133198609
--  发布时间：2018/5/23 23:58:00
--  
刚刚又测试了一下，三台苹果手机都会卡，一台安卓的不会卡。搞不懂了。
--  作者：有点甜
--  发布时间：2018/5/24 8:53:00
--  

1、这种情况？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119203&skin=0

 

2、能否发一个实例上来测试？不然别人无法帮你排查错误的。
--  作者：133198609
--  发布时间：2018/5/24 11:39:00
--  
对，就和他一样。
采用同样的弹出菜单，过去之后返回就不行了，而且，只发生在苹果手机上，电脑和安卓都正常。和他一模一样。
我新建一个再简化代码试试
--  作者：133198609
--  发布时间：2018/5/24 15:45:00
--  
我测试的帮助文件，同样的，苹果手机会卡。
请官方测试一下。
--  作者：有点甜
--  发布时间：2018/5/24 16:09:00
--  
以下是引用133198609在2018/5/24 15:45:00的发言：
我测试的帮助文件，同样的，苹果手机会卡。
请官方测试一下。

 

测试的项目发上来说明。