主题：[求助]备货日期代码

 参考代码，改一下就行了

设置表的DataColChanged事件代码，以便根据生产日期和到期天数，计算出到期日期：

Select Case e.DataCol.Name
    Case "生产日期","保质天数"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else
            e.DataRow("到期日期") = e.DataRow("生产日期").AddDays(e.DataRow("保质天数"))
        End If
End Select

代码这样写

Select Case e.DataCol.Name
    Case "交货日期","备货天数"
        If e.DataRow.IsNull("交货日期") Then
            e.DataRow("备货日期") = Nothing
        Else
            e.DataRow("备货日期") = e.DataRow("交货日期").AddDays(-e.DataRow("备货天数"))
        End If
End Select

例子

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