Foxtable(狐表)用户栏目专家坐堂 → 如何将handle页面的返回值a,显示在这?


  共有2190人关注过本帖树形打印复制链接

主题:如何将handle页面的返回值a,显示在这?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/22 16:20:00 [显示全部帖子]

不能这样处理,必须用js处理。

 

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/22 16:50:00 [显示全部帖子]

function myfunction(){    
var result = submitAjaxForm('form1','',false);    
var ary = result.split("!");
alert(result);
alert(ary[0]);
if (ary[0]=="OK") {showDialog("dlg1","返回结果", "返回了" + ary[1] + "个成果")}
}
[此贴子已经被作者于2017/12/22 16:50:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/24 15:33:00 [显示全部帖子]

我测试没问题,js不变,httprequest如下

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AddForm("","form1","handle.htm") '指定接收表单数据的的页面为handle.htm
        With wb.AddInputGroup("form1","ipg1","新增订单")
            .AddInput("单价","单价","number")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "onclick='myfunction()'"
        End With
        With wb.AddDialog("","dlg1", "提示","") '如何将handle页面的返回值a,显示在这?
            .AddButton("btnOK","确定")
        End With
        wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
    Case "handle.htm"
        Dim a As String = "1“
        e.WriteString("OK!" & a) '希望将a显示在
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/25 10:17:00 [显示全部帖子]

请用6楼代码测试,或者贴出你httprequest事件代码。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/25 10:18:00 [显示全部帖子]

这一句代码一定不能少

 

        With wb.AddDialog("","dlg1", "提示","") '如何将handle页面的返回值a,显示在这?
            .AddButton("btnOK","确定")
        End With


 回到顶部