Foxtable(狐表)用户栏目专家坐堂 → 两张表都需要编号的情况解决思路是怎么样的啊


  共有2428人关注过本帖树形打印复制链接

主题:两张表都需要编号的情况解决思路是怎么样的啊

帅哥哟,离线,有人找我吗?
初心不改再说未来
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
两张表都需要编号的情况解决思路是怎么样的啊  发帖心情 Post By:2018/3/4 12:13:00 [只看该作者]

A表和B表都需要用年月日-序号的办法编号
A表有20180301-001
B表也有20180301-001
这样就有冲突了

这个解决思路应该是怎么样的

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2018/3/4 12:15:00 [只看该作者]

能不能当A表编号为001时
B表再新增的话编号自动为002

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

演示中是只有1个表    我不太明白2个表的话应该怎么弄

 回到顶部
帅哥哟,离线,有人找我吗?
leyevee
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:43 积分:669 威望:0 精华:0 注册:2014/5/4 14:52:00
  发帖心情 Post By:2018/3/4 12:46:00 [只看该作者]

A表的20180301-001是A.20180301-001
B表的20180301-001是B.20180301-001
没有冲突的可能吧。实在不好理解,就分别搞成A20180301-001和B20180301-001。我也是新手,个人建议呵

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部