主题：[求助] 按杻后自动插入次序 空白行

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

如何  按条件行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:按杻后自动补齐相减值的空白行.table

与行对减后，按钮实现自动补齐空白行。并填充入数字。例：  列值为，452  454，补出空白行，并写入值453。

Dim dt As DataTable = DataTables("表B")
Dim idx As Integer = 1
For Each dr As DataRow In dt.Select("", "提取值")
    If val(dr("提取值")) > idx Then
        For i As Integer = idx To val(dr("提取值"))-1
            Dim ndr As DataRow = dt.addnew
            ndr("_sortkey") = i
            ndr("内容") = dr("内容").substring(0, 8) & Format(i, "000")
        Next
    End If
    dr("_sortkey") = val(dr("提取值"))
    idx = val(dr("提取值"))+1
Next

能否控制首行以上都不插入？因为数值大时，生成效率低，且是无用处的行。