请教条件筛选重置列问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim zx As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "入库日期"

If zx("已售") = False

If zx.isnull("入库日期") Then

zx("库存天数") = Nothing

zx("入库") = False

zx("资源匹配后到车日期") = Nothing

Else

Dim KC As TimeSpan = Date.today - CDate(zx("入库日期"))

zx("库存天数") = KC.TotalDays

zx("入库") = True

If zx("入库日期") >= zx("资源匹配日期") And zx.IsNull("资源匹配日期") = False Then

zx("资源匹配后到车日期") = zx("入库日期")

ElseIf zx("入库日期") < zx("资源匹配日期") And zx.IsNull("资源匹配日期") = False Then

zx("资源匹配后到车日期") = zx("资源匹配日期")

End If

End Select

主题：请教条件筛选重置列问题