如果判断记录集中当前记录的某个字段值与上一条记录中这个字段值是否相同?

凡卓　发表于：2014-04-14 13:23:21 　

将一查询的记录写入一个表中, 根据字段F1的上\下条记录值判断是否需要将字段F2的值写入表中, 如果当前待写入的记录中F1字段值等于上一条记录中F1的字段值时, 那么当前记录的字段F2的值将以空值或0写入表.

        Set RstT = CurrentDb.OpenRecordset("tb_Data")
        If DCount("numDN", "tb_Data") <> 0 Then
            CurrentDb.Execute "Delete * from tb_Data;"
        End If

        strSQL = "SELECT tblPL.F1, tblPL_Header.F2 FROM tblPLData"
        Set RstQ = CurrentDb.OpenRecordset(strSQL)
        RstQ.MoveFirst
        Do Until RstQ.EOF
            RstT.AddNew
            RstT!F1 = RstQ!F1
            RstT!F2 = RstQ!F2
            RstT.Update
        Loop

        Set RstT = Nothing
        Set RstQ = Nothing

上述代码只是将F1,F2的值写入了表中, 如果要实现最终的要求, 该如何修改? 请各位老师指点.

Top

zhaoyoulong 发表于：2014-04-14 16:35:32

提供个方法:

dim TemValue

rs.movefirse

for i=0 to rs.recordcount-1

TemValue=rs("字段")

rs.movenext

if rs.eof then exit for

if rs("字段")=TemValue then

...

end if

Top

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

Access交流中心

如果判断记录集中当前记录的某个字段值与上一条记录中这个字段值是否相同?