怎么对比同一窗体中的数据，找出不同的数据来

lqp971

最近想做一个数据管理的东西，思路是将同一类型的数据先查询出来，然后在不同的子窗体内进行对比。
搜了很久，没结果，各位老大，能否指教一二？
详细见附件。

lqp971

kangking 发表于 2012-4-2 09:44
Private Sub Command4_Click()
    Dim rsS As Recordset
    Dim rsO As Recordset

KangKing 大哥，你懂我……
有效果了……
如果能弄个表把这些不同的数据给保存起来就更好了
或者能在子窗体LBSUB中用颜色把不同的SN给显示出来最好了！

lqp971

春秋 发表于 2012-4-2 06:52
看了，不是很明白您的意思。一般讲，订单号是唯一的，而SN也应该是唯一的。也就是说，订单号不同而SN相同是 ...

附件中只是一个例子而已，我的数据全部是从EXCELL导入的，前面一个表是东西送出去维修，后面一个表是从vendor那里返回的东西，vendor有可能因为某些原因给换掉，所以我就是要找出哪些被换掉了。
在excel中很容易（Vlookup），ACCESS就不会了。

春秋

看了，不是很明白您的意思。一般讲，订单号是唯一的，而SN也应该是唯一的。也就是说，订单号不同而SN相同是一种错误。如果情况确如描述，则应该在输入有效性中加以限定，不必反过来进行检查。像现在这样的设计思路，既增加了难度，又不符合要求。试想，如果数据很庞大，执行一次比较将是多么耗时。

kangking

Private Sub Command4_Click()
    Dim rsS As Recordset
    Dim rsO As Recordset
    Dim isFind As Boolean

    On Error Resume Next
    Set rsS = Me.FBSUB.Form.RecordsetClone
    Set rsO = Me.FBLSUB.Form.RecordsetClone
    rsS.MoveFirst

    Do Until rsS.EOF
        isFind = False
        rsO.MoveFirst
        If Not IsNull(rsS("SN")) Then
            rsO.FindFirst "SN ='" & rsS("SN") & "'"
            If rsO.NoMatch Then
                MsgBox rsS("SN") & " No Match"
            End If
        Else
            MsgBox "SN is null"
        End If
        rsS.Move 1
    Loop

    Set rsS = Nothing
    Set rsO = Nothing
End Sub