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


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

主题：自动编号 问题
帅哥哟，离线，有人找我吗？
yancheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		自动编号 问题  发帖心情 Post By：2016/3/15 9:35:00 [只看该作者]

我的编号列如下：BDSAFD-33;0025-23； 332-2；2355-3-55-3这样的，我有一个：复制增加，按钮。想实现 ，上面的编号：最后一个- 符号后的数字+1，自动编号 。请问怎么写？
[此贴子已经被作者于2016/3/15 9:37:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/15 10:09:00 [只看该作者]


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


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/3/22 8:34:00 [只看该作者]

Split，如何用：Split命令找到我上面的编号的最后一个"-"后的内容+1呢？

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


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/3/22 9:09:00 [只看该作者]

Dim s() As String = "2355-3-55-3".Split("-")
Output.Show(s(s.Length - 1))
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/3/22 13:19:00 [只看该作者]

问题：

1、怎么统计：2355-3-55-开头的，最大数呢？
2、感觉下面的代码写啰嗦了。怎么改改好？
下面是我写的：复制增加按钮，的代码。
If Tables("材料").TopPosition > -1 Then '如果选定区域包括数据行
    Dim dr As Row = Tables("材料").Current
    Dim s As String = dr("定额编码")
    If s > "" AndAlso s.Length <= 6 Then
        Dim r As Row = Tables("材料").InsertNew()
        r("材料名称") =dr("材料名称")
        r("定额编码") =dr("定额编码") & "-1"
        r("规格") =dr("规格")
        r("分类") =dr("分类")
        r("子分类") =dr("子分类")
        r("单位") =dr("单位")
        r("类别代码") =dr("类别代码")
        r("图片") =dr("图片")
        r("网址") =dr("网址")
        r("网址2") =dr("网址2")
        r("网址3") =dr("网址3")
        r("材料文件") =dr("材料文件")
        r("成本价") =0
        Forms("材料维护").show
    ElseIf  s > "" AndAlso s.Contains("-")=False AndAlso s.Length > 6 Then
        Dim r As Row = Tables("材料").InsertNew()
        r("材料名称") =dr("材料名称")
        r("定额编码") =dr("定额编码") & "-1"
        r("规格") =dr("规格")
        r("分类") =dr("分类")
        r("子分类") =dr("子分类")
        r("单位") =dr("单位")
        r("类别代码") =dr("类别代码")
        r("图片") =dr("图片")
        r("网址") =dr("网址")
        r("网址2") =dr("网址2")
        r("网址3") =dr("网址3")
        r("材料文件") =dr("材料文件")
        r("成本价") =0
        Forms("材料维护").show
    ElseIf  s > "" AndAlso s.Contains("-") AndAlso s.Length > 6 Then
        Dim s1() As String = s.Split("-")
        Dim Index As Integer = s.LastIndexOf("-")
        Dim bh As String = s.SubString(0,Index+1)

      ????

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


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/3/22 13:20:00 [只看该作者]

怎么才能把帮助的，自动增加编号 ，溶入呢？

要自动生成上面的编号，可以将DataColChanged事件代码设置为：

Select e.DataCol.Name
    Case "类别"
        If e.DataRow.IsNull("类别") Then
            e.DataRow("编号") = Nothing
        Else
            Dim lb As String = e.DataRow("类别")
            If e.DataRow("编号").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(编号)","类别 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("编号") = lb & Format(idx,"000")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/3/22 13:23:00 [只看该作者]

If s > "" AndAlso s.Length <= 6 Then

    ElseIf  s > "" AndAlso s.Contains("-")=False AndAlso s.Length > 6 Then
这两个条件的结果一样，但是我不知道怎么把这两条代码合成一条？下面同一结果。

        Dim r As Row = Tables("材料").InsertNew()
        r("材料名称") =dr("材料名称")
        r("定额编码") =dr("定额编码") & "-1"
        r("规格") =dr("规格")
        r("分类") =dr("分类")
        r("子分类") =dr("子分类")
        r("单位") =dr("单位")
        r("类别代码") =dr("类别代码")
        r("图片") =dr("图片")
        r("网址") =dr("网址")
        r("网址2") =dr("网址2")
        r("网址3") =dr("网址3")
        r("材料文件") =dr("材料文件")
        r("成本价") =0
        Forms("材料维护").show
[此贴子已经被作者于2016/3/22 13:28:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2016/3/22 13:29:00 [只看该作者]


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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/22 14:30:00 [只看该作者]

max = e.DataTable.Compute("Max(定额编码)","定额编码 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify"))

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


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		朱健，师傅帮我解决了。狐表的论坛帮助真的得加强呀。不然我等小白，怎么学得会哦。  发帖心情 Post By：2016/3/22 16:07:00 [只看该作者]

 ElseIf  s > "" AndAlso s.Contains("-") AndAlso s.Length > 6 Then
        Dim str As String
        If dr IsNot Nothing Then
            str= dr("定额编码")
        End If
        Dim mystr As String = str.substring(Str.LastIndexOf("-"))
        Dim r As Row = Tables("材料").InsertNew()
        r("材料名称") =dr("材料名称")
        r("规格") =dr("规格")
        r("分类") =dr("分类")
        r("子分类") =dr("子分类")
        r("单位") =dr("单位")
        r("类别代码") =dr("类别代码")
        r("图片") =dr("图片")
        r("网址") =dr("网址")
        r("网址2") =dr("网址2")
        r("网址3") =dr("网址3")
        r("材料文件") =dr("材料文件")
        r("成本价") =0
        r("定额编码") = str.substring(0,Str.LastIndexOf("-")) & "-" & Format(cint(mystr.Replace("-",""))+1,"000")
        Forms("材料维护").show
    End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询