主题：求助 开发中 怎么在输入100号数字后让其自动生成前面99个数值

您发给我信箱的问题，我直接回复不成功，提示保存信息不合法，也不知道是否回复成功！不知道为什么，现回复如下：

Forms("需要打开的窗口名").Open()

If e.DataCol.name = "序号"
    Dim a As Integer
    If e.DataRow("辅助列") = False
        If e.DataRow.Isnull("序号") = False
            DataTables(e.DataTable.name).StopRedraw
            For i As Integer = e.DataRow("序号") To 1 Step -1
                If a >= 300
                    Exit For
                End If
                Dim Filter As String = "[序号] = " & i
                Dim drs As List(Of DataRow)
                drs = DataTables(e.DataTable.name).Select(Filter)
                If drs.Count < 1
                    a = a +1
                    Dim r As Row = Tables(e.DataTable.name).InsertNew()
                    r("辅助列") = True
                    r("序号") = i
                    r("辅助列") = False
                End If
            Next
        End If
    End If
End If
DataTables(e.DataTable.name).ResumeRedraw

注、每一次只允许添加最近的300行，否则导致死机现象（上述实例请在表A测试）；

忘记上传实例，补上：

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

点击浏览该文件:管理项目13.table