Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动编号


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

主题：[求助]自动编号
美女呀，离线，留言给我吧！
maymay_1211
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：106 威望：0 精华：0 注册：2019/6/22 9:36:00 		[求助]自动编号  发帖心情 Post By：2019/7/2 15:32:00 [只看该作者]

老师，你好！
以下是我打算做的一个新增物料的窗口，不会编程真的觉得是困难重重，好没信心~~~只能来救助了。。。。麻烦了，谢谢！
希望实现功能：
在窗口按新增后，选择“成本类别”“类别名称”，当鼠标离开“类别名称”，物料编号自动生成，生成规则：“类别缩写&物料缩写+0001”，根据《物料信息表》的“物料编号”列对应“物料缩写”中最大的编号+1。。。

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190702152146.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/2 15:42:00 [只看该作者]

这种到表事件处理即可，参考：http://www.foxtable.com/webhelp/topics/2403.htm

 回到顶部
美女呀，离线，留言给我吧！
maymay_1211
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：106 威望：0 精华：0 注册：2019/6/22 9:36:00 		  发帖心情 Post By：2019/7/2 17:11:00 [只看该作者]

老师，修修改改代码如下，并不成功~~~而且在出现以下问题~~~
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190702170933.png
图片点击可在新窗口打开查看
Select e.DataCol.Name
    Case "名称缩写","类别缩写"
        If e.DataRow.IsNull("名称缩写") OrElse e.DataRow.IsNull("类别缩写") Then
            e.DataRow("物料编号") = Nothing
        Else
            Dim bh As String = e.DataRow("类别缩写") & "名称缩写" '生成编号的前缀
            If e.DataRow("物料编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "类别缩写 = '"& e.DataRow("类别缩写") & "名称缩写 = '"& e.DataRow("名称缩写")  & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(物料编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(12,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("物料编号") = bh & Format(idx,"0000")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/2 17:24:00 [只看该作者]

Select e.DataCol.Name
    Case "名称缩写","类别缩写"
        If e.DataRow.IsNull("名称缩写") OrElse e.DataRow.IsNull("类别缩写") Then
            e.DataRow("物料编号") = Nothing
        Else
            Dim bh As String = e.DataRow("类别缩写") & e.DataRow("名称缩写") '生成编号的前缀
            If e.DataRow("物料编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "类别缩写 = '" & e.DataRow("类别缩写") & "名称缩写 = '" & e.DataRow("名称缩写")  & "' And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(物料编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(bh.Length,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("物料编号") = bh & Format(idx,"0000")
            End If
        End If
End Select
 回到顶部
美女呀，离线，留言给我吧！
maymay_1211
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：106 威望：0 精华：0 注册：2019/6/22 9:36:00 		  发帖心情 Post By：2019/7/2 18:58:00 [只看该作者]

摆弄了好久，两个问题都没有解决~~~图片点击可在新窗口打开查看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:qsy管理系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/2 20:35:00 [只看该作者]

Select e.DataCol.Name
    Case "成本类别"
        If e.DataRow.IsNull("成本类别") Then
            e.DataRow("类别缩写") = Nothing
        Else
            Dim dr As DataRow = DataTables("物料编码规则").Find("成本类别='" & e.DataRow("成本类别") & "'")
            If dr IsNot Nothing Then
                e.DataRow("类别缩写") = dr("类别缩写")
            Else
                e.DataRow("类别缩写") = Nothing
            End If
        End If
    Case "类别名称"
        '参考上面用法自己写
    Case "名称缩写","类别缩写"
        If e.DataRow.IsNull("名称缩写") OrElse e.DataRow.IsNull("类别缩写") Then
            e.DataRow("物料编号") = Nothing
        Else
            Dim bh As String = e.DataRow("类别缩写") & e.DataRow("名称缩写") '生成编号的前缀
            If e.DataRow("物料编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "类别缩写 = '" & e.DataRow("类别缩写") & "' and 名称缩写 = '" & e.DataRow("名称缩写")  & "' And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(物料编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(bh.Length,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("物料编号") = bh & Format(idx,"0000")
            End If
        End If
End Select
 回到顶部
美女呀，离线，留言给我吧！
maymay_1211
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：6 积分：106 威望：0 精华：0 注册：2019/6/22 9:36:00 		  发帖心情 Post By：2019/7/3 8:45:00 [只看该作者]

谢谢老师！！！图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
756488317
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：63 积分：888 威望：0 精华：0 注册：2018/7/17 19:45:00 		  发帖心情 Post By：2019/7/15 12:03:00 [只看该作者]

    Dim d As Date = e.Form.Controls("创建时间").Value
    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 r1 As DataRow = DataTables("市场渠道管理").SQLFind("渠道名称 = '" & mc & "'")
    Dim xybh As WinForm.TextBox = e.Form.Controls("客户编号")
    Dim bh As String = r1("市场渠道代码") & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀
    If xybh.Text.StartsWith(bh) = False '如果单据编号前缀不符
        Dim max As String
        Dim idx As Integer
        Dim flt As String
        flt = "渠道来源 = '"& r1("渠道名称") & "' And 创建时间 >= #" & fd & "# And 创建时间 <= #" & ld & "#"
        max = DataTables("客户信息").Compute("Max(客户编号)",flt) '取得该月的相同工程代码的最大单据编号
        If max > "" Then '如果存在最大单据编号
            idx = CInt(max.SubString(flt.Length,5)) + 1 '获得最大单据编号的后四位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        xybh.Value = bh & Format(idx,"00000")
    End If



大神帮忙看看我这个咋回事，编号都能成功添加，但是没有+1，万分感谢求解答
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/15 12:10:00 [只看该作者]

idx = CInt(max.SubString(max.Length - 5,5)) + 1 

或者

idx = CInt(max.SubString(bh.Length ,5)) + 1 
 回到顶部
帅哥哟，离线，有人找我吗？
756488317
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：63 积分：888 威望：0 精华：0 注册：2018/7/17 19:45:00 		  发帖心情 Post By：2019/7/15 16:49:00 [只看该作者]


        flt = "渠道来源 = '"& r1("渠道名称") & "' And 创建时间 >= #" & fd & "# And 创建时间 <= #" & ld & "#"
        max = DataTables("客户信息").Compute("Max(客户编号)",flt) '取得该月的相同工程代码的最大单据编号


蓝老师，还是不行，没有+1，是不是上面这段代码有问题呢？我用的是SQL数据库
 回到顶部
总数 20 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.05469 秒, 5 次数据查询