以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两张表都需要编号的情况解决思路是怎么样的啊  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115280)
--  作者：初心不改再说未来
--  发布时间：2018/3/4 12:13:00
--  两张表都需要编号的情况解决思路是怎么样的啊
A表和B表都需要用年月日-序号的办法编号
A表有20180301-001
B表也有20180301-001
这样就有冲突了

这个解决思路应该是怎么样的
--  作者：初心不改再说未来
--  发布时间：2018/3/4 12:15:00
--  
能不能当A表编号为001时
B表再新增的话编号自动为002

这样2个表就可以用1个编号了

演示中是只有1个表    我不太明白2个表的话应该怎么弄
--  作者：leyevee
--  发布时间：2018/3/4 12:46:00
--  
A表的20180301-001是A.20180301-001
B表的20180301-001是B.20180301-001
没有冲突的可能吧。实在不好理解，就分别搞成A20180301-001和B20180301-001。我也是新手，个人建议呵
--  作者：有点甜
--  发布时间：2018/3/4 13:10:00
--  

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
        If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = DataTables("表A").Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
            Dim max1 = DataTables("表B").Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
            If max1 > max Then max = max1
            If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("编号") = bh & "-" & Format(idx,"000")
        End If
    End If
End If