这是怎么回事? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "入库数量","出库数量"
        Dim mr As DataRow = e.DataRow
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & "And[类别] = '" & e.DataRow("类别") & "' And [品名] = '" & e.DataRow("品名")& "'And [规格与色号] = '" & e.DataRow("规格与色号") & "'" , "[_SortKey] Desc")
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行"[IO] = '" & e.DataRow("IO") & "' And [口岸] = '" & e.DataRow("口岸")
            mr("结存数量") = mr("入库数量") - mr("出库数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & "And[类别] = '" & e.DataRow("类别") & "' And [品名] = '" & e.DataRow("品名")& "'And [规格与色号] = '" & e.DataRow("规格与色号") & "'")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("结存数量") = drs(i-1)("结存数量") + drs(i)("入库数量") - drs(i)("出库数量")
        Next
End Select

我按照例子的高效率流水账做的东西,为什么提示说没有"_sortkey"这一列

还有:

   Select Case e.DataCol.Name
    Case "出库日期"
        If e.DataRow.IsNull("出库日期")
            e.DataRow("出库日期")=""
        Else
            e.DataRow("出库月份")=Month(e.DataRow("出库日期"))
        End If
End Select

为什么出库日期为空值时这个代码Month(e.DataRow("出库日期"))的值为1呢?

以下是引用狐狸爸爸在2010-12-8 15:42:00的发言：

这是正常的，日期列虽然为空，但是返回值不是控制，因为日期变量不存在空值，参考：

http://help.foxtable.com/topics/0395.htm

那老大,如果是1的话,人家是跟着这个计算的那不是跟着1月去计算了?

以下是引用狐狸爸爸在2010-12-8 15:51:00的发言：
用IsNull判断某列是否为空啊，你不是已经这么做了吗？

我的意思是如果是这样如果出库日期是空,出库月份就会变成1，如果我是按照出库月份计算的,那么不全部是按照1来计算了,这种情况怎么处理?删掉1，为空格?

如果删除1的话,本来的1月份不就全部删掉了.

奇怪了,刚才还这样,现在好了.

f.Filter="[出库月份]> '" & t1 & "'"
f.Filter="[出库月份]< '" & t1 & "'"
f.Filter="[出库月份]= '" & t1 & "'"
f.Filter="[入库月份]= '" & t1 & "'"
f.Filter="[入库月份]> '" & t1 & "'"
f.Filter="[入库月份]< '" & t1 & "'"

这个代码怎么组合?我想窗口下拉框为T1，想既要出库月份符合又要入库月份符合?用AND还是OR

主题：这是怎么回事?