如何用VB实现合同编号

zhaozh2h

1.合同编号为固定，只要ZXXS+日期（20180901）+001
2.当我合同内容都填写完，点击一个按钮确认，就是直接把合同编号确认，另外生成一个新表，新合同编码！
麻烦各位大神了！！！

mmx1122

'我这个可以实现。可能有点复杂，但是很简单。原理是：每次先去数据库查询最后一个单据编号，如果有就是加1，如果没有，就用新的日期& 0001
我的格式：HL2017080501
Dim Y As String
Dim m As String
Dim D As String
Dim s As String

Sub 新增核料单()

    Y = Year(Date)
    m = Format(Month(Date), "00")
    D = Format(Day(Date), "00")
    s = Y & m & D

    On Error GoTo er
'    cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb" & ";User ID=; Jet OLEDB:database Password = 6318"
   
    With Form1
        sq1 = "SELECT TOP 1 单据编号 FROM 核料表 ORDER BY 单据编号 DESC"
   
        rs1.Open sq1, cn, adOpenKeyset, adLockOptimistic

        If Mid(rs1.Fields("单据编号"), 3, 8) = s Then
            .单据编号 = "HL" & Format(Val(Right(rs1.Fields("单据编号").Value, 10)) + 1, "0000000000")
        Else
            .单据编号 = "HL" & s & "01"
        End If
   
        rs1.Close
        cn.Close
        Set rs1 = Nothing
        Set cn = Nothing
        Exit Sub
er:
        rs1.Close
        cn.Close
        Set rs1 = Nothing
        Set cn = Nothing
        .单据编号 = "HL" & s & "01"
    End With
End Sub

zhaozh2h

mmx1122 发表于 2018-9-14 15:01
'我这个可以实现。可能有点复杂，但是很简单。原理是：每次先去数据库查询最后一个单据编号，如果有就是加1 ...

就是要先多建一个表作为数据查询吗

zhaozh2h

zhaozh2h 发表于 2018-9-14 15:10
就是要先多建一个表作为数据查询吗

我是新手，不知道怎么弄

zhaozh2h

mmx1122 发表于 2018-9-14 15:01
'我这个可以实现。可能有点复杂，但是很简单。原理是：每次先去数据库查询最后一个单据编号，如果有就是加1 ...

我是新手，不知道怎么弄

simic1989

合同编号写在哪？订单号码那边吗？日期你是想要当天的日期？比如这种形式ZXXS20180914001？你点击后想要形成的新表是空表还是你已经填好的合同，但是换个新的合同号？

mmx1122

zhaozh2h 发表于 2018-9-14 15:14
我是新手，不知道怎么弄

大家原理都差不多。我说一下我的想法：

假设你之前没有任何数据
9月14日开始做第1张单子，单据编号是 DH201809140001,那么当你做第二张单子时候，你要让系统知道你前面做了几个单子了，单号排到了多少号了，所以你需要去查一下。例如目前只做了1个单子，单号排到了001了，那么现在就要加1，变成0002才对。后面以此类推了。。。。。接下来明天15号再做的时候，日期就变了，你还要让系统去查，查什么呢？ 去查单号里有没有和日期20180915一样的，在这里肯定没有啦，所以直接生成单号就是DH201809150001。

zhaozh2h

朱荣兴 发表于 2018-9-14 15:15

还有就是，我点击确认之后，会生成新的表，然后确认之前的内容单独保存或者生成新的工作表。