主题：[求助]序列填充问题

（2016）AA01BB11

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

 

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

谢谢版主！很好用。

如果：AA01BB   11   号   中间的数字位数不确定，就是可能是1位或2位、3位、4位，怎样改个通用的？

此主题相关图片如下：image 1.jpg

Dim v As String = t.Rows(t.Position)("第二列").Substring(bh.length).trim("号")

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"

 

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

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号

8楼代码测试没问题。没有通用的，必须指明前缀的个数，不然无法确定从哪里开始。