以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现在弹出的当前页面刷新进入新增明细  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172951)
--  作者：夜点蚊香
--  发布时间：2021/11/8 21:11:00
--  如何实现在弹出的当前页面刷新进入新增明细
我现在用的是弹出页面显示下面的表格的内容。如何实现在弹出的页面，点击新增明细时候可以在当前弹出的页面刷新进入进行操作。还有一个关闭当前页面是怎么写。请指教。

If e.GetValues.ContainsKey("oid") AndAlso  srs.count > 0 Then \'如果不是新增订单,且订单明细行数大于0,则生成订单明细表格.
    With wb.AddTable("form1","detailTable") \'为了区分,明细表的名字设为detailTable
        .head.AddRow("产品","数量","单价","金额")
        .ActiveSheet = "menu" \'指定菜单
        For Each sr As DataRow In srs
            With .Body.AddRow(sr("产品"),sr("数量"),sr("单价"))
                .AddCell(sr("数量") * sr("单价"))
                .Primarykey = sr("_Identify") \'为此行指定主键值
            End With
        Next
    End With
    \'设计菜单
    With wb.AddActionSheet("","menu")
        .Add("mnudAdd", "增加明细").Attribute="" \'调用js函数
        .Add("mnuEdit", "编辑明细").Attribute =""
        .Add("mnuDelete", "删除明细").Attribute ="""
        .Add("mnuCancel","取消","",True)
    End With
End If
With wb.AddDialog("","dlg1", "删除确认","您确定要删除当前明细吗?")
    .AddButton("btnCancel","取消").Kind = 1
    .AddButton("btnOK","确定").Attribute = ""
End With
With wb.AddButtonGroup("form1","btg1",False)
    .Add("btn1", "增加明细", "submit").FormAction = url & "&addnext=true" \'加上addnext参数,表示保存后进入增加明细状态
    .Add("btn2", "保存", "submit") \'正常提交,保存后进入编辑状态
    If  e.GetValues.ContainsKey("oid") = False Then \'如过是新增订单
        .Add("btn3", "取消", "button","list.htm?page=" & page & "&deloid=" & pr("订单编号")) \'删除新增订单后返回列表
    ElseIf IsNew OrElse mr IsNot Nothing  Then \'如果在给旧订单新增或修改明细,则直接返回编辑状态
        .Add("btn3", "取消", "button",url) \'返回编辑状态
    Else
        .Add("btn3", "返回", "button","list.htm?page=" & page) \'返回列表
    End If
End With
--  作者：有点蓝
--  发布时间：2021/11/8 21:21:00
--  
默认就是这样的呀：http://www.foxtable.com/mobilehelp/topics/0130.htm，不知道您要什么效果

没有关闭页面的用法，只能是跳转到主页，或者退出登录