- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动填充序号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192362)
-- 发布时间：2024/6/18 10:07:00
-- [求助]自动填充序号
你好老师，像图中选定后，点按钮自动填充1、2、3……
此主题相关图片如下：screenshot_20240618_100140_cn.wps.moffice_eng_edit_1132977509053159.jpg
代码应该怎么写啊
-- 发布时间：2024/6/18 10:25:00
--
With Tables("表A")
dim k as integer = 1
For i as Integer = .TopPosition+1 To .BottomPosition
.Rows(i)("某列") = k
.Rows(i)("某列") = k
k=k+1
Next
End With
End With
-- 发布时间：2024/6/18 10:32:00
--
此主题相关图片如下：示例.png
按钮的代码如下：
Dim t As WinForm.Table = e.Form.Controls("Table1")
Dim t1 As Table = t.Table
Dim j As Integer = 1
For i As Integer = t1.TopRow To t1.BottomRow
t1.Rows(i)("第一列") = j
j = j + 1
Next
[此贴子已经被作者于2024/6/18 10:35:36编辑过]
-- 发布时间：2024/6/18 12:06:00
--
非常感谢各位老师！