主题：不同表对比参数。

谢谢老师。最小那个可以了，

只是这个可以 通过窗口去判断吗？

比如，这里可以点击按钮判断被选择的行他们相同订单序号的中和是否大于对应的产品序号相同的数量大吗

如果大于就填出小窗口，
然后右边的大于的行筛选出，这个可以吗？感谢 感谢

就是左边表格相同编号的被选中的和是否等于右边对应相同的编号对应的数量，感谢 感谢 

太感谢老师了，谢谢 谢谢，就是好像表1和表2有点反了样，感谢  感谢

然后大于改为小于好像也不对，老师能在帮忙看看吗？表一的可以再加一个条件吗？就是比如业务往来_货物状态不等于 待发货和已交货

Dim dict As new Dictionary(of String,Integer)
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    If dict.ContainsKey(r("订单序号")) Then
        dict(r("订单序号")) = dict(r("订单序号")) + r("订单数量")
    Else
        dict.Add(r("订单序号"),r("订单数量"))
    End If
Next

Dim s As String = ""
For Each r As Row In Tables("窗口1_Table2").Rows
    If dict.ContainsKey(r("产品序号")) AndAlso dict(r("产品序号")) < r("库存数量") Then
        s = s & ",'" & r("产品序号") & "'"
    End If
Next

If s < "" Then
    Tables("窗口1_Table2").Filter = "产品序号 in (" & s.Trim(",") & ")"
Else
    Tables("窗口1_Table2").Filter ="false"
End If

感谢老师，都可以了，实在是不知道如何感谢了，

现在就还是反的，老师，现在的程序是选择的行合小于表2对应行再筛选出来，然后可能改为表1选择的行的合大于表2对应的行并筛选出来吗？感谢 感谢 还有个不重要的小问题就是筛选出来后需要切换到全部显现才能在筛选。