求助！！自动生成编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助！！自动生成编号

共有1891人关注过本帖树形打印复制链接主题：求助！！自动生成编号

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/27 11:07:00 [显示全部帖子]

没看懂你的问题，这个意思？ http://www.foxtable.com/webhelp/scr/0362.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/27 17:14:00 [显示全部帖子]

format(e.DataRow("消费时间"), "yyyyMMddHHmmss")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/27 17:15:00 [显示全部帖子]

全部代码贴出来，或者实例发上来测试。

代码没问题。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/27 17:32:00 [显示全部帖子]

If e.DataCol.Name = "消费时间" Then
    If e.DataRow.IsNull("消费时间") Then
        e.DataRow("消费单据号") = Nothing
    Else
        Dim bh As String = Format( e.DataRow("消费时间") ,"yyyyMMddHHmmss") '取得编号的14位前缀
        Dim d As Date = e.DataRow("消费时间").Date
        Dim max As String
        Dim idx As Integer
        max = e.DataTable.Compute("Max(消费单据号)","消费时间 >= #" & d & "# and 消费时间 < #" & d.AddDays(1) & "#") '取得该天的最大编号
        If max > "" Then '如果存在最大编号
            idx = CInt(max.Substring(bh.length+1,3)) + 1 '获得最大编号的后3位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("消费单据号") =bh & "-" & Format(idx,"000")   'bh & Format(idx,"000")
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/27 21:02:00 [显示全部帖子]

消费时间列，改成日期列，不能用字符列。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/27 21:27:00 [显示全部帖子]

以下是引用kmbn在2017/8/27 21:17:00的发言：
可是消费时间列又想看到具体消费时分啊，有点矛盾了图片点击可在新窗口打开查看

可以的啊，设置列属性 http://www.foxtable.com/webhelp/scr/0044.htm

下一主题 >> << 上一主题

主题：求助！！自动生成编号