Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:新增订单提交后,因为一些判断会中途返回修改再提交,怎么返加原来提交前有输入数据的页面再行修改呢?

1楼
温馨的大树 发表于:2024/1/1 15:37:00
新增订单提交后,因为一些判断会中途返回修改再提交,怎么返加原来保留输入数据的页面再行修改后提交呢?
比如:
 Dim nms() As String = {"姓名", "订单日期", "订单时间", "省份", "城市",  "客户网名", "客服网名", "单价", "单位" , "收款方式", "交待事项" } '不能为空的列名数组
    For Each nm As String In nms
        If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
            With wb.AddMsgPage("page1", "msgpage", "增加失败", nm & "列不能为空!")
                .icon = "Warn" '改变图标
                .AddButton("btn1", "返回", "list.htm")
            End With
            e.WriteString(wb.Build)
            Return"" '必须返回
        End If
    Next
再比如:
 With wb.AddDialog("page1", "dlg3", "提示", "对不起,找不到【" & dr8("姓名") & "】的订单计划,请核实后再提交!")
            .AddButton("btnOK", "确定", "addnew.htm?page=0")
            .AddButton("bdnCancel", "取消", "list.htm").Kind = 0
            .Visible = True
        End With
        e.WriteString(wb.Build)
        Return""
2楼
有点蓝 发表于:2024/1/1 20:39:00
使用ajax提交数据,比如:http://www.foxtable.com/mobilehelp/topics/0101.htm
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01904 s, 2 queries.