Office中国论坛/Access中国论坛

标题: 如何用代码处理数据表内容自动填充？ [打印本页]

作者: sbsfhgl 时间: 2010-6-4 16:56
标题: 如何用代码处理数据表内容自动填充？
请教各位，如附件所示，如何用代码处理数据表内容自动填充，要求：自动等于上一格有内容的数据，如果有连续多行空行，则直接从第一行数据开如，如A，B，C，D，CD是空项，则C=B，D=C。怎么办？[attach]42357[/attach]

作者: todaynew 时间: 2010-6-4 17:32
本帖最后由 todaynew 于 2010-6-4 17:41 编辑

用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 时间: 2010-7-20 16:43
回复 todaynew 的帖子
如果数据是导入的，怎么不行呀？

作者: fan0217 时间: 2010-7-20 17:00
原理一样

作者: yihesmxx 时间: 2010-7-23 10:14
学习学习

作者: sunwrsun 时间: 2018-12-7 23:36
看看

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)