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

DataColChanged事件代码如下

Dim RKRQ As DataRow = e.DataRow

If RKRQ("已售") = False

If e.NewValue Is Nothing Then

e.DataRow("库存天数") = Nothing

e.DataRow("入库") = False

e.DataRow("资源匹配后到车日期") = Nothing

Else

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

e.DataRow("库存天数") = KC.TotalDays

e.DataRow("入库") = True

Dim zx As DataRow = e.DataRow

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

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

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

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

End If

重置列代码如下：

Dim Filter As String

Filter = "已售 = false"

DataTables("商品车库存基础表").DataCols("生产日期").RaiseDataColChanged(Filter)

DataTables("商品车库存基础表").DataCols("入库日期").RaiseDataColChanged(Filter)

请教老师，按照条件重置列后，DataColChanged事件代码执行错误，执行过程不辩别“库存天数”是否为空，这是什么原因，该如何解决

然后说明一下这个代码想实现什么功能

老师：

1- DataColChanged事件代码的目的是针对“入库日期”计算库存天数

2- 重置列代码的目的是每天重算库存天数

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

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