Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动编号问题（按日期、国别和类别不同,产生自动编号）


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

主题：自动编号问题（按日期、国别和类别不同,产生自动编号）
帅哥哟，离线，有人找我吗？
yangcin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00 		自动编号问题（按日期、国别和类别不同,产生自动编号）  发帖心情 Post By：2014/3/31 20:57:00 [只看该作者]

Select e.DataCol.Name
    Case "贸易国别","销售类型"
        If e.DataRow.IsNull("贸易国别") OrElse e.DataRow.IsNull("销售类型") Then
            e.DataRow("销售单号") = Nothing
        Else
            Dim gb As String = e.DataRow("贸易国别")
            If e.DataRow("贸易国别") = "中国" Then
                gb = "D"
            Else
                gb = "F"
            End If
            Dim lx As String = e.DataRow("销售类型")
            If e.DataRow("销售类型") = "零售" Then
                lx = "SS"
            Else
                lx = "SC"
            End If
            Dim d As Date = e.DataRow("制单日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = gb & lx & "-" & Format(d,"yyMM") & "-" '生成编号的前缀
            If e.DataRow("销售单号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "贸易国别 = 'gb'And 销售类型 = 'lx' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(销售单号)",flt) '取得该月的相同贸易国别贸易方式的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(8,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("销售单号") = bh & Format(idx,"0000")
            End If
        End If
End Select

问题：

序号不自动增加。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/31 21:20:00 [只看该作者]

Select e.DataCol.Name
    Case "贸易国别","销售类型"
        If e.DataRow.IsNull("贸易国别") OrElse e.DataRow.IsNull("销售类型") Then
            e.DataRow("销售单号") = Nothing
        Else
            Dim gb As String = e.DataRow("贸易国别")
            If e.DataRow("贸易国别") = "中国" Then
                gb = "D"
            Else
                gb = "F"
            End If
            Dim lx As String = e.DataRow("销售类型")
            If e.DataRow("销售类型") = "零售" Then
                lx = "SS"
            Else
                lx = "SC"
            End If
            Dim d As Date = e.DataRow("制单日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = gb & lx & "-" & Format(d,"yyMM") & "-" '生成编号的前缀
            If e.DataRow("销售单号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "贸易国别 = 'gb' And 销售类型 = 'lx' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(销售单号)",flt) '取得该月的相同贸易国别贸易方式的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(9,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("销售单号") = bh & Format(idx,"0000")
            End If
        End If
End Select
[此贴子已经被作者于2014-3-31 21:24:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangcin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00 		  发帖心情 Post By：2014/3/31 21:41:00 [只看该作者]

还是没变化呢？

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/31 21:44:00 [只看该作者]

以下是引用yangcin在2014-3-31 21:41:00的发言：
还是没变化呢？

 

自动编号，不是你新增一行就编号的，是你必须先填入 制单日期、贸易国别、销售类型，才会自动生成的。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/31 21:45:00 [只看该作者]

呃，写错了

 

Select e.DataCol.Name
    Case "贸易国别","销售类型"
        If e.DataRow.IsNull("贸易国别") OrElse e.DataRow.IsNull("销售类型") Then
            e.DataRow("销售单号") = Nothing
        Else
            Dim gb As String = e.DataRow("贸易国别")
            If e.DataRow("贸易国别") = "中国" Then
                gb = "D"
            Else
                gb = "F"
            End If
            Dim lx As String = e.DataRow("销售类型")
            If e.DataRow("销售类型") = "零售" Then
                lx = "SS"
            Else
                lx = "SC"
            End If
            Dim d As Date = e.DataRow("制单日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = gb & lx & "-" & Format(d,"yyMM") & "-" '生成编号的前缀
            If e.DataRow("销售单号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "贸易国别 = '" & gb & "' And 销售类型 = '" & lx & "' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(销售单号)",flt) '取得该月的相同贸易国别贸易方式的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(9,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("销售单号") = bh & Format(idx,"0000")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yangcin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00 		  发帖心情 Post By：2014/3/31 21:48:00 [只看该作者]

有点甜，我新增了一行，设置了自动读取当前日期为制单日期，贸易国别，销售类型都填写了。但，编号序号后四位不会变化，前面的都会变。
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140331215046.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangcin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00 		  发帖心情 Post By：2014/3/31 21:54:00 [只看该作者]

还是没有变化啊，有点甜
求助啊
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140331215751.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-3-31 21:54:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/31 22:01:00 [只看该作者]

 哦，明白，这句改一下。

 

 flt = "贸易国别 = '" & gb & "' And 销售类型 = '" & lx & "' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

 

 改成

 

flt = "销售单号 like '" & bh & "*' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

[此贴子已经被作者于2014-3-31 22:04:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangcin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00 		  发帖心情 Post By：2014/4/1 8:41:00 [只看该作者]

有点舔，还是不行呢...奇怪了，谢谢你的回复

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/1 8:42:00 [只看该作者]

例子发上来吧.

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询