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

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

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