Foxtable(狐表)用户栏目专家坐堂 → 编号问题


  共有2813人关注过本帖平板打印复制链接

主题:编号问题

帅哥哟,离线,有人找我吗?
outcat
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
编号问题  发帖心情 Post By:2018/6/9 23:55:00 [只看该作者]


此主题相关图片如下:1.png
按此在新窗口浏览图片


 


此主题相关图片如下:2.png
按此在新窗口浏览图片

If e.DataCol.Name = "二级类别" Then
    If e.NewValue Is Nothing Then
        e.DataRow("二级编号") = Nothing
        e.DataRow("商品编号") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("商品二级类别").Find("[二级类别] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("二级类别") = dr("二级类别")
            e.DataRow("二级编号") = dr("二级编号")
            e.DataRow("一级编号") = dr("一级编号")
            Dim lbbh As String = e.DataRow("二级编号")
            Dim yjbh As String = e.DataRow("一级编号")
            If e.DataRow("商品编号").StartsWith(lbbh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(商品编号)","二级编号 = '" & lbbh & "'And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号

 

                If max > "" Then '如果存在最大编号


                    idx = CInt(max.Substring(5,4)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("商品编号") = lbbh & Format(idx,"0000")
            End If
           
        End If
    End If
End If

 

老师,我这块编码想再加判断条件,请老师帮助一下,我要实现的是 比如不同的厂家 都有桌子、板凳这两个类别,厂家是一级类别,桌子、板凳是二级类别,明细是三级,当我添加了一个厂家的明细时,再添加另一个厂家相同类别的明细时,商品编号应该是本厂家的商品类别加流水号,可现在却是在上一个厂家相同类别的流水号上递增,我试着写了,一直写不对


 回到顶部