| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 在一行中输入内容后，自动向下填充相同内容到指定行数里 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142802) |
| -- 作者：wu725 -- 发布时间：2019/11/6 16:32:00 -- 在一行中输入内容后，自动向下填充相同内容到指定行数里 我设计编号列，在第一行输入0001，第一行输入完后编号列中1一6行填充0001编号，第七行输入0002后，7一12行自动第七行输入的内容。 行数 编号列 1 0001 2 0001 3 0001 4 0001 5 0001 6 0001 7 0002 8 0002 9 0002 10 0002 11 0002 12 0002 13 0003 14 0003
|
| -- 作者：有点蓝 -- 发布时间：2019/11/6 16:43:00 -- AfterEdit事件 If e.Col.Name = "编号列" AndAlso e.Row.Isnull("编号列") = False Then For i As Integer = e.Row.Index + 1 To math.min(e.Row.Index + 5,e.Table.Rows.count - 1) e.Table.Rows(i)("编号列") = e.Row("编号列") Next End If |
| -- 作者：wu725 -- 发布时间：2019/11/6 22:13:00 -- 非常感谢！ |