[求助][讨论]网页上日期引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][讨论]网页上日期引用

共有12014人关注过本帖树形打印复制链接主题：[求助][讨论]网页上日期引用

有点蓝

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/5/21 10:06:00 [显示全部帖子]

目前weui的网页表格都无法编辑

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/5/21 20:08:00 [显示全部帖子]

对什么东西进行授权?

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/19 16:56:00 [显示全部帖子]

老师：你好！示例GetOrderID函数是根据当开日期生成的订单编号，怎样改成根据输入的日期来自动生成订单编号

If e.GetValues.ContainsKey("oid") = False Then '如果没有传递订单编号,则新增与一个订单
    pr = DataTables("订单").SQLAddNew() '
    pr("订单编号") = Functions.Execute("GetOrderID",某某日期) '利用自定义函数GetOrderID为新增订单生成编号.
    pr("日期") = Date.Today()
这个代码要怎么改写

Static Lastbh As String '通过这个Static变量可以访问上一次生成的编号,避免重复Compute
Dim prefix As String = Format(args(0),"yyMMdd") '本次编号前缀

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/19 20:09:00 [显示全部帖子]

提交表单时候，获取数据，比如：

If e.GetValues.ContainsKey("oid") = False Then '如果没有传递订单编号,则新增与一个订单
    pr = DataTables("订单").SQLAddNew() '
    pr("订单编号") = Functions.Execute("GetOrderID",e.PostValues("日期控件id")) '利用自定义函数GetOrderID为新增订单生成编号.
    pr("日期") = Date.Today()