专家坐堂-[求助]WeUI项目界面来回切换保留上一个界面数据的问题？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]WeUI项目界面来回切换保留上一个界面数据的问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175622)

--  作者：新福星
--  发布时间：2022/3/12 7:46:00
--  [求助]WeUI项目界面来回切换保留上一个界面数据的问题？

希望A界面进入B界面之后，再回到A界面是，仍然保留A界面表里的数据。但是现在回来就清空了。C的样子。

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

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

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

[此贴子已经被作者于2022/3/12 7:48:20编辑过]

--  作者：有点蓝
--  发布时间：2022/3/12 8:52:00
--
b页面返回的时候把这条记录的编号一起返回，比如
.Add("btn3", "返回", "button","a.htm?id=xxx编号")

然后a页面，根据url的参数获取数据并给控件赋值，比如：
Dim pr As DataRow
If e.GetValues.ContainsKey("id") Then \'如果没有传递订单编号,则新增与一个订单
    pr = DataTables("订单").SQLFind("订单编号=\'" & e.GetValues("id") & "\'")
End If
……
  With .AddInput("单价","单价","number")
if pr isnot nothing then
                .value = pr("单价")
end if
            End With

--  作者：新福星
--  发布时间：2022/3/12 8:54:00
--
A界面形成的表格数据是提供额外加入一个div标签通过一段js代码实现的。好像用上面的那个方法实现不了

--  作者：有点蓝
--  发布时间：2022/3/12 9:22:00
--

想办法调用js函数咯

if pr isnot nothing then
wb.AppendHTML("<script>tongji();</script>")
end if

--  作者：新福星
--  发布时间：2022/3/12 17:31:00
--

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

--  作者：有点蓝
--  发布时间：2022/3/12 17:37:00
--
因为js文件还没有加载

  wb.AppendHTML("<script src=\'./lib/table.js\'></script>") \'引入脚本文件
wb.AppendHTML("<script>tongji();</script>") 如果要调用js文件里的函数，需要放到js文件加载之后
        e.WriteString(wb.Build)