以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  自动填充规定内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103737)

--  作者：wu725 --  发布时间：2017/7/15 21:51:00 --  自动填充规定内容 我设计成绩表，考室列每次增加5-10行，在增加的第一行录入01考室，输入完后自动向刚增加行内填充，与第一行输入内容01考室一样，如果又增加行，在增加的第一行输入02，其余四行自动填充成02，请指点一下代码如何编写，谢谢。

--  作者：wyz20130512 --  发布时间：2017/7/16 10:58:00 --   Dim max_ksh As Integer Dim t As Table = Tables("表A") max_ksh = t.Compute("Max(考室)") + 1 Dim r As Row For i As Byte = 1 To 5     r = t.AddNew()     r("考室") = Format(max_ksh,"00") Next