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
End If
重置列代码如下：
Dim Filter As String
Filter = "已售 = false"
DataTables("商品车库存基础表").DataCols("生产日期").RaiseDataColChanged(Filter)
DataTables("商品车库存基础表").DataCols("入库日期").RaiseDataColChanged(Filter)
请教老师，按照条件重置列后，DataColChanged事件代码执行错误，执行过程不辩别“库存天数”是否为空，这是什么原因，该如何解决
加好友 
发短信
Post By：2023/8/25 11:23:00 [显示全部帖子]
