以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老师，这段代码要怎么改？openqq生成不重复代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185045)
--  作者：hitzfeld
--  发布时间：2023/2/1 15:15:00
--  老师，这段代码要怎么改？openqq生成不重复代码

2、在服务端的AfterOpenProjet事件中编写代码：

Dim dt As DataTable
Dim cmd As New SQL
cmd.Connec = "数据源名称"
cmd.C = "Se|ect Year(日期) As 年, Month(日期) As 月, Max(编号) as 编号 From {订单} Group By Year(日期), Month(日期)"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("年") & Format(dr("月"),"00") \'编号前缀,4位年,2位月
    Dim bh As String = dr("编号")
    Dim id As Integer
    If bh.Length = 10 Then
        bh = bh.SubString(7)
        If Integer.TryParse(bh,id) Then
            flbhs.Add(qz, id)
        End If
    End If
Next



我需要的是两位年和按天生成。比如2301031这样，老师能帮忙改下吗？谢谢！
--  作者：有点蓝
--  发布时间：2023/2/1 15:29:00
--  
【2301031】是指23年01月03日1号单？
--  作者：hitzfeld
--  发布时间：2023/2/1 16:40:00
--  
不是，23是年，01是月，31是日期，然后再加顺序号3位，这里面我主要是两个不会改，一个是四位年转化2位年，另一个是天，我按教程格式改没改好，想请老师帮忙下
--  作者：有点蓝
--  发布时间：2023/2/1 16:53:00
--  
cmd.Connec = "数据源名称"
cmd.C = "Se|ect Year(日期) As 年, Month(日期) As 月, day(日期) As 日, Max(编号) as 编号 From {订单} Group By Year(日期), Month(日期),day(日期)"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("年") & dr("月") & dr("日") \'编号前缀,4位年,2位月
    Dim bh As String = dr("编号")
    Dim id As Integer
--  作者：hitzfeld
--  发布时间：2023/2/1 17:10:00
--  
蓝老师好， Year(日期) As 年是4位年呀？转换两位年能指点下吗？谢谢！sql语言不熟悉
--  作者：有点蓝
--  发布时间：2023/2/1 17:32:00
--  
http://www.foxtable.com/webhelp/topics/1338.htm、http://www.foxtable.com/webhelp/topics/3264.htm

Dim qz As String = Right(dr("年"),2) & dr...
或者
Dim qz As String = dr("年").substring(2) & dr...