以文本方式查看主题 -  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=143790)

--  作者：15666282205 --  发布时间：2019/12/4 15:02:00 --  自动填充问题 老师，这段代码实现了自动填充数字，但是数字的内容是不变的。我想实现在textbox1中输入值，然后运行代码，将值赋给所选单元格，请您指点。 \'----------------------------------批量填充----------------------- Dim t As Table = Tables("当月考勤表2") For i As Integer = t.TopRow To t.BottomRow     For j As Integer = t.LeftCol To t.RightCol         If t.Rows(i).IsNull(t.Cols(j).Name) Then             t.Value(i,j) = "0"             \'Else             \'msgbox(i & "-" & j & "已经有值")         End If     Next Next

--  作者：有点蓝 --  发布时间：2019/12/4 15:24:00 --   t.Value(i,j) = forms("窗口1").controls(“textbox1”).text