以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老师向下填充数据这种效果如果代码如何写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186139)

--  作者:hbfnmxb
--  发布时间:2023/4/8 17:12:00
--  老师向下填充数据这种效果如果代码如何写
老师向下填充数据这种效果如果代码如何写

图片点击可在新窗口打开查看此主题相关图片如下:33.png
图片点击可在新窗口打开查看
本年度校计划列中,第一行是75,第二行是空,这个空填充75这个数值,第三个数据是77,下面的连续3列是空,那么就用77来填充这三行数据,第七、八行有数据,不变;然后第九行870往下是空行,就是870向下填充。计划累加列也是同理,
老师,这个代码如何写?



--  作者:有点蓝
--  发布时间:2023/4/8 18:08:00
--  
dim r as row = tqables("A").rows(0)
for i as integer = 1 to tables("A").rows.count - 1
if tables("A").rows(i).isnull("本年度校计划") then
tables("A").rows(i)("本年度校计划") = r("本年度校计划")
else
r = tables("A").rows(i)
end if
next

--  作者:hbfnmxb
--  发布时间:2023/4/8 18:36:00
--  
老师,如果再加一个考试类的条件,在哪里加上?
--  作者:hbfnmxb
--  发布时间:2023/4/9 17:08:00
--  
老师,再加一个“考试类"的条件,如何加?谢谢老师
--  作者:有点蓝
--  发布时间:2023/4/9 20:27:00
--  
if tables("A").rows(i).isnull("本年度校计划") andalso tables("A").rows(i)("考试类")=r("考试类") then
--  作者:hbfnmxb
--  发布时间:2023/4/9 20:31:00
--  
感谢老师!