如何用代码处理数据表内容自动填充？

sbsfhgl

请教各位，如附件所示，如何用代码处理数据表内容自动填充，要求：自动等于上一格有内容的数据，如果有连续多行空行，则直接从第一行数据开如，如A，B，C，D，CD是空项，则C=B，D=C。怎么办？

todaynew

用ADO数据集容易解决，大体可以如下：
Dim rs As New adodb.Recordset
Dim i As Long
Dim mydate As Date
rs.Open "表名称", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
      if isnull(rs("日期").value)=false then
          mydate=rs("日期").value
      else
          rs("日期").value=mydate
      end if
      rs.MoveNext
Next
rs.Close

sbsfhgl

回复 todaynew 的帖子
如果数据是导入的，怎么不行呀？


   

fan0217

原理一样

yihesmxx

学习学习

sunwrsun

看看