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

老师你好

老师：是否可以用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

谢谢 老师

 

 

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

老师你好！订单明细表有一列“制单人”保存订单明细时 怎样把当前用户 保存到“制单人"中

If valid Then '如果提交了订单明细数据
    Dim sr As DataRow
    If e.PostValues.ContainsKey("DetailID") Then '如果传递了订单明细主键
        sr = DataTables("订单明细").SQLFind("[_Identify]=" & e.PostValues("DetailID"))
        If sr Is Nothing  Then  '多用户环境,必须考虑其他用户删除此明细的可能,避免程序报错
            Return ""
        End If
    Else
        sr = DataTables("订单明细").SQLAddNew() '增加一个订单明细
        sr("订单编号") = dr("订单编号")
    End If
    For Each nm As String  In nms
        sr(nm) = e.PostValues(nm)
    Next
    sr.Save()  '必须保存,而且必须在最后保存,因为用SQLAddNew增加的行,一旦保存,就不能再引用此行
End If

代码怎么写，谢谢

老师你好！写上这段代码

后报错如下： 

”语句已终止。

将截断字符串或二进制数据。“

  Dim gjs As List(of String) = DataTables("Users").GetValues("用户管理组")
            .AddSelect("yfglz","用户组","|" & String.Join("|",gjs.ToArray)).Attribute = ""  '调用js函数.
            .AddSelect("username","户名","")
            For Each ggj As String In gjs
                wb.InsertHTML("<p hidden id='" & ggj & "'>" & DataTables("Users").GetComboListString("Name","用户管理组='" & ggj & "'") & "</p>")
            Next

老师;你好！请教一下，我想把统计条件中列名设置为动态的  如：g.Filter = "日期 >= '" & dt1 & "' And 日期 <= '" & dt2 & "' "  这个“日期” 列是否可以改成动态的变量  我对所统计表表名设置成变量是可以的，但对统计条件中的列名设置变量，就不运行  如果把”日期“设置成变量“name”，代码要怎么写？谢谢老师指导！