以文本方式查看主题

-  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=123043)
--  作者：gql200051
--  发布时间：2018/8/7 9:48:00
--  [求助] 按杻后自动插入次序 空白行

图片点击可在新窗口打开查看此主题相关图片如下：123.jpg
图片点击可在新窗口打开查看
如何  按条件行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:按杻后自动补齐相减值的空白行.table

与行对减后，按钮实现自动补齐空白行。并填充入数字。例：  列值为，452  454，补出空白行，并写入值453。
--  作者：有点甜
--  发布时间：2018/8/7 10:37:00
--  
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
--  作者：gql200051
--  发布时间：2018/8/8 15:51:00
--  
能否控制首行以上都不插入？因为数值大时，生成效率低，且是无用处的行。
--  作者：有点甜
--  发布时间：2018/8/8 16:06:00
--  
Dim dt As DataTable = DataTables("表B")
Dim drs = dt.Select("", "提取值")
Dim idx As Integer = drs(0)("提取值")
For Each dr As DataRow In drs
    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