主题：[求助][讨论]网页上日期引用

老师你好

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

老师：是否可以用AddSwtich(ID, Label)
AddSwtich(ID, Label, Checked)进行授权？

对什么东西进行授权?

老师：你好！示例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(Date.now,"yyMMdd") '本次编号前缀
If Lastbh >"" AndAlso Lastbh.SubString(0,6) = prefix Then '如果上一次生成编号的前缀和本次相同
    Lastbh = prefix & Format(Cint(Lastbh.SubString(6,3)) + 1,"000") '在上次编号的基础上递增1
Else
    '取数据表中同前缀的最大编号
    Dim max As String=DataTables("订单").SQLCompute("Max(订单编号)","订单编号 like '" & prefix & "%'")
    If max = "" Then '如果不存在同前缀的编号
        Lastbh  = prefix & "001"  '同前缀的第一个编号
    Else
        Lastbh = prefix & Format(CInt(max.SubString(6,3)) + 1,"000") '在同前缀最大编号的基础上递增1
    End If
End If
Return Lastbh

老师：你好！示例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") '本次编号前缀

谢谢 老师

 

 

老师：你写的这个某某日期是动态的。是日期输入框输入的，我想达到日期输入框输入后，再生成订单编号，代码要怎么写？谢谢

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