专家坐堂-如何将handle页面的返回值a，显示在这？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何将handle页面的返回值a，显示在这？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=111473)

--  作者：zhangjian222200
--  发布时间：2017/12/22 16:17:00
--  如何将handle页面的返回值a，显示在这？

function myfunction(){
    var result = submitAjaxForm(\'form1\',\'\',false);

    if (result ==\'OK\') {show(\'dlg1\')}
}

Select Case e.Path
    Case "addnew.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", "返回了" & a & "个成果","") \'如何将handle页面的返回值a，显示在这？
            .AddButton("btnOK","确定")
        End With
        wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
        e.WriteString(wb.Build)
    Case "handle.htm"
dim a as string = “aaa”
        e.WriteString("OK！" & a) \'希望将a显示在
End Select
End Select

[此贴子已经被作者于2017/12/22 16:45:27编辑过]

--  作者：有点甜
--  发布时间：2017/12/22 16:20:00
--

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

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

--  作者：zhangjian222200
--  发布时间：2017/12/22 16:45:00
--

1楼的js换成如下的样子，可以么？

function myfunction(){
var result = submitAjaxForm(\'form1\',\'\',false);
var ary = result.split("！")
if (ary[1]>0) {showDialog(\'dlg1\',\'返回了" & ary[1] & "个成果\',\'\')}
}

--  作者：有点甜
--  发布时间：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编辑过]

--  作者：zhangjian222200
--  发布时间：2017/12/23 17:56:00
--

按楼上，在pc电脑上模拟chrome在手机测试，如下，没有显示对话框dlg1

function validit_shourcx(){
var result = submitAjaxForm(\'form1\',\'\',false);
var ary = result.split("!");
alert(result); //这里显示：OK！1
alert(ary[0]);  //这里显示：OK
if (ary[0]=="OK") {showDialog("dlg1","返回结果", "返回了" + ary[1] + "个成果")} //这里没有任何提示
}

[此贴子已经被作者于2017/12/23 17:58:41编辑过]

--  作者：有点甜
--  发布时间：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

--  作者：zhangjian222200
--  发布时间：2017/12/25 10:14:00
--

function validit_shourcx(){
var result = submitAjaxForm(\'form1\',\'\',false);
var ary = result.split("!");
alert(result); //执行了
alert(ary[0]); //执行了，显示：上月获得会费收入
if (ary[0] =="上月获得会费收入") {showDialog("dlg1","返回结果", "上月会费收入" + ary[1] + "元")}  //没有执行这一行，浏览器提示如下图，但是如果将这行改成下一行，则成功执行，应该是说明showDialog有问题，就是不知道具体是什么问题

if (ary[0]=="上月获得会费收入") {alert(ary[1]);}
}

此主题相关图片如下：qq图片201712251009522229.png

实际js文件：
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:ajaxform_shourcx.txt

[此贴子已经被作者于2017/12/25 10:15:24编辑过]

--  作者：有点甜
--  发布时间：2017/12/25 10:17:00
--
请用6楼代码测试，或者贴出你httprequest事件代码。

--  作者：有点甜
--  发布时间：2017/12/25 10:18:00
--

这一句代码一定不能少

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

--  作者：zhangjian222200
--  发布时间：2017/12/25 10:57:00
--
按6楼测试成功，然后稍微调整请求页面代码，就可以了，非常感谢！！！