Select Case e.DataCol.Name
Case "本次维护时间"
If e.NewValue Is Nothing Then
e.DataRow("下次维护时间") = Nothing
Else
Dim dr As DataRow
dr = DataTables("表B").Find("[维修类别] = \'" & e.DataRow("维修类别") & "\'")
If dr IsNot Nothing AndAlso dr.IsNull("提醒天数") = False Then
e.DataRow("下次维护时间") = e.NewValue.AddDays(dr("提醒天数"))
End If
End If
End Select