以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]序列填充问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99578)
--  作者：jyh7081
--  发布时间：2017/4/21 16:35:00
--  [求助]序列填充问题
下面的两个单元格值可以按照尾部的数字进行序列填充；
（2016）AA01BB11
（2016）AA01BB12
...
在尾部再加上个字  "号”，就不能序列填充了，有没有办法解决？
（2016）AA01BB11号
（2016）AA01BB12号
--  作者：有点色
--  发布时间：2017/4/21 16:45:00
--  

单独做一个按钮实现特殊的序列填充

 

Dim t As Table = Tables("表B")
Dim bh As String = "AA01BB"
Dim idx As Integer = t.Rows(t.Position)("第二列").Substring(bh.length,2)
For i As Integer = t.topposition + 1 To t.bottomposition
    idx += 1
    t.rows(i)("第二列") = bh & Format(idx, "00") & "号"
Next
--  作者：jyh7081
--  发布时间：2017/4/21 22:34:00
--  

谢谢版主！很好用。

如果：AA01BB   11   号   中间的数字位数不确定，就是可能是1位或2位、3位、4位，怎样改个通用的？
--  作者：有点蓝
--  发布时间：2017/4/21 23:04:00
--  
Dim t As Table = Tables("表B")
Dim bh As String = "AA01BB"
Dim v As String = t.Rows(t.Position)("第二列").Substring(bh.length)
Dim idx As Integer = v
For i As Integer = t.topposition + 1 To t.bottomposition
    idx += 1
    t.rows(i)("第二列") = bh & Format(idx, "0".PadLeft(v.Length,"0")) & "号"
Next
--  作者：jyh7081
--  发布时间：2017/4/21 23:15:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2017/4/21 23:29:00
--  
Dim v As String = t.Rows(t.Position)("第二列").Substring(bh.length).trim("号")
--  作者：jyh7081
--  发布时间：2017/7/7 11:32:00
--  
Dim t As Table = Tables("表B")
Dim bh As String = "AA01BB"
Dim v As String = t.Rows(t.Position)("第二列").Substring(bh.length)
Dim idx As Integer = v
For i As Integer = t.topposition + 1 To t.bottomposition
    idx += 1
    Dim v As String = t.Rows(t.Position)("第二列").Substring(bh.length).trim("号")
Next
--------------------------
上面这段序列填充代码，如果编号的前缀包含多种情况，怎么合并代码？
比如前缀有三种情况："AA01BB"、"CC01DD"、"EE01FF"
--  作者：有点甜
--  发布时间：2017/7/7 11:43:00
--  

 

Dim t As Table = Tables("表B")
Dim bh As String = t.Rows(t.Position)("第二列").Substring(0,6)
Dim v As String = t.Rows(t.Position)("第二列").Substring(bh.length).trim("号")
Dim idx As Integer = v
For i As Integer = t.topposition + 1 To t.bottomposition
    idx += 1
    t.rows(i)("第二列") = bh & Format(idx, "0".PadLeft(v.Length,"0")) & "号"
Next
--  作者：jyh7081
--  发布时间：2017/7/21 11:05:00
--  

Dim t As Table = CurrentTable
For Each c As Col In t.Cols
    If c.IsNumeric Then
        Syscmd.Edit.SerialFill()    \'序列填充
    Else
        Dim bh As String = t.Rows(t.Position)("案号").Substring(0,12)
        Dim v As String = t.Rows(t.Position)("案号").Substring(bh.length).trim("号")
        Dim idx As Integer = v
        For i As Integer = t.topposition + 1 To t.bottomposition
            idx += 1
            t.rows(i)("案号") = bh & Format(idx, "0".PadLeft(v.Length,"0")) & "号"
        Next
    End If
Next

----------------------------------

运行中，数字编号部分应该显示17、18、19、20、21、22；实际显示成17、18、19、110、111、112；是什么原因？

另外，如果编号前缀（2017）鲁01行初，变为（2017）鲁01行赔初，多出一个字符的话，上述代码能改成个通用的吗？

（2017）鲁01行初17号
（2017）鲁01行初18号
（2017）鲁01行初19号
（2017）鲁01行初110号
（2017）鲁01行初111号
（2017）鲁01行初112号
--  作者：有点甜
--  发布时间：2017/7/21 11:21:00
--  
8楼代码测试没问题。没有通用的，必须指明前缀的个数，不然无法确定从哪里开始。