| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自动增加行及填充序号 (http://foxtable.net/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 |