当前记录与当前记录往下的第5条记录比较该怎么写

于枫　发表于：2012-08-01 14:30:49 　

复制

请教一下：

excel vba处理数据

for i=1 to 50000
for j=i+5

if sheets(1).cells(i,3)=sheets(1).cells(j,3) then

按j行处理数据后插入1行

end if

next j

next i

但是我对上面的excel vba 用access vba表述不出来

自定义函数在access查询中可以直接用，但对类似当前记录与当前记录往下的第5条记录比较该怎么写？
难道要重新开一新表，内容为从原表第5条记录开始至50005条记录
两表同时打开比较
大家给点意见

Top

于枫发表于：2012-08-01 14:48:07

感觉excel vba可随心引用某行中的某列，但accessr的逐记录循环，使之受限。

有时好想处理这些数据，没办法只好将数据导出到excel,处理后再导入。

Top

叶海峰发表于：2012-08-01 16:10:50

定义一个ADO或者DAO的Recordset记录集,然后通过Move等方法进行指针移动.

Top

煮江品茶发表于：2012-08-01 17:21:52

i+5不就完事了。

sheets(1).cells(i+5,3)

Top

于枫发表于：2013-08-29 14:00:08

我说的是在access中怎么处理，在 excel中很容易处理的

Top

煮江品茶发表于：2013-08-29 14:28:55

Sub P(ByVal tbname As String)
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i As Long
    ssql = "select * from " & tbname
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        '写对当前记录的处理语句
        rs.Move 5 '跳到当前记录后的第5条记录
        '写对该条记录的处理语句
        rs.Move -5 '回跳到当前记录

        rs.MoveNext
    Next
    rs.Close: Set rs = Nothing
End Sub

Top

于枫发表于：2013-08-29 14:33:12

茅塞顿开，佩服之极！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

当前记录与当前记录往下的第5条记录比较该怎么写