主题：[求助]自动连续按选定的编号增行赋值

If CurrentTable.Name = "loc.Rep_gd.Rep_bg" Then  
    Dim t1 As String = e.Form.Controls("TextBox1").Text
    Dim tl As Integer = t1.Length
    Dim t2 As String = t1.SubString(0,3)
    Dim nm As Integer = e.Form.Controls("NumericComboBox1").Value
    Dim idx As Integer
    If nm > 1 And nm < 10 Then
        Dim i As Integer
        Dim test As String
        For i = 1 To nm
            idx = CInt(t1.Substring(3)) + i
            If tl = 7 Then
                test = t2 & format(idx,"0000")
'如何增行后在报告编号单元格内赋值呢?
            End If
            If tl = 8 Then
                test = t2 & format(idx,"00000")
'如何增行后在报告编号单元格内赋值呢?
            End If
            If tl = 9 Then
                test = t2 & format(idx,"000000")
'如何增行后在报告编号单元格内赋值呢?
            End If
            If tl = 10 Then
                test = t2 & format(idx,"0000000")
'如何增行后在报告编号单元格内赋值呢?
            End If
        Next
    Else
        Messagebox.Show("最多自增10个报告编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Else
    Messagebox.Show("请选择需自增号的报告编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

搞定了，谢谢老师