向muhua大神道歉。。。对不起

求继续解答

你都输入了100号数据了,还怎么自动输入前面的数字?

你的意思是说:任意输入一个数字,比如100,然后狐表帮你把前面的99个数字填充进去吧?问题是,你打算填充在哪里?自动生成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