以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动增加行及填充序号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88729)
--  作者：benwong2013
--  发布时间：2016/8/8 16:31:00
--  自动增加行及填充序号
表A为临时表，其中有一栏为“问题序号”，需要在窗口点击按钮之后，能如下：
1.将表A的数据清空；
2.自动表A增加40行，并且问题需要自动从数字1-40进行填充；

请问这个代码应该如何写；
--  作者：大红袍
--  发布时间：2016/8/8 16:42:00
--  
Dim dt as datatable = datatables("表a")
dt.DeleteFor("")
For i As Integer = 1 To 40
    Dim ndr As DataRow = dt.AddNew
    ndr("第一列") = i
Next