主题：计算库存错误码

这段代码应该是日期比较的问题，要换一种思路

http://www.foxtable.com/help/topics/2219.htm

Dim Filter As String = " [产品号] = '" & e.DataRow("产品号") & "'"
Dim sum As Double = 0
Dim dts() As String = {"成品期初库存", "成品入库单明细"}
For Each dt As String In dts
    For Each dr As DataRow In DataTables(dt).Select("", "日期")
        If dr("日期") > Vars("jsrq") Then Exit For
        sum = sum + dr("件数")
    Next
Next

Dim sum2 As Double = 0
Dim dts2() As String = {"成品销单明细"}
For Each dt As String In dts2
    For Each dr As DataRow In DataTables(dt).Select("", "日期")
        If dr("日期") > Vars("jsrq") Then Exit For
        sum = sum + dr("件数")
    Next
Next

e.DataRow("成品件数") = sum - sum2

这里写错了!!!

sum2 = sum2 + dr("件数")