办法很多哟。
'DataColChanged事件代码
Dim dr As DataRow = e.DataRowIf dr.IsNull("开始时间") = False And dr.IsNull("终止时间") = False Then dr("间隔") = DateDiff("d",dr("开始时间"),dr("终止时间"))Else dr("间隔") = NothingEnd If