方法一,把时间差距_年、月、日是个列合并为一个列2、
Select Case e.DataCol.name
Case "预期时间","当前时间"
If e.DataRow.IsNull("预期时间") Then
e.DataRow("时间差距_年") = Nothing
e.DataRow("时间差距_月") = Nothing
e.DataRow("时间差距_日") = Nothing
Else
Dim y,m,d As Integer
Dim dt1 As Date = CDate(e.DataRow("预期时间"))
Dim dt2 As Date = CDate(e.DataRow("当前时间"))
DateYMD(dt1,dt2,y,m,d)
e.DataRow("时间差距_年") = y
e.DataRow("时间差距_月") = m
e.DataRow("时间差距_日") = d
End If
End Select
[此贴子已经被作者于2018/7/28 9:00:44编辑过]