密码:888888
我想在缴费情况表实现:1、如果录入缴费_月租_起计日期、缴费_月租_止计日期,自动计出缴费_月租_缴费月数;
2、如果录入缴费_月租_起计日期、缴费_月租_缴费月数,自动计出缴费_月租_止计日期;
3、缴费_临时停放_缴费时间以时分显示。
现1、自动计出缴费_月租_缴费月数已实现,但2、自动计出缴费_月租_止计日期,没反应,3、缴费_临时停放_缴费时间未能以时分显示。程序如下:
Select Case e.DataCol.name
Case "缴费_月租_起计日期","缴费_月租_止计日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("缴费_月租_起计日期") OrElse dr.IsNull("缴费_月租_止计日期") Then
dr("缴费_月租_缴费月数") = Nothing
ElseIf dr.IsNull("缴费_月租_起计日期") = False And dr.IsNull("缴费_月租_缴费月数") = False Then
dr("缴费_月租_止计日期") = dr("缴费_月租_起计日期").AddMonths(dr("缴费_月租_缴费月数"))
dr("缴费_月租_缴费金额") = dr("缴费_月租_缴费月数") * dr("缴费_月租_月租单价")
Else
dr("缴费_月租_缴费月数") = DateDiff("m",dr("缴费_月租_起计日期"),dr("缴费_月租_止计日期")) + 1
dr("缴费_月租_缴费金额") = dr("缴费_月租_缴费月数") * dr("缴费_月租_月租单价")
End If
End Select
Select Case e.DataCol.name
Case "缴费_临时停放_起计时间","缴费_临时停放_止计时间"
Dim dr As DataRow = e.DataRow
If dr.IsNull("缴费_临时停放_起计时间") OrElse dr.IsNull("缴费_临时停放_止计时间") Then
dr("缴费_临时停放_缴费时间") = Nothing
Dim tp As TimeSpan
tp = dr("缴费_临时停放_止计时间") - dr("缴费_临时停放_起计时间")
dr("缴费_临时停放_缴费时间") = tp.TotalHours
ElseIf dr("缴费_临时停放_缴费时间") * 3 <= 20 Then '每小时3元停车费,超过20元的按最高20元计。
dr("缴费_临时停放_缴费金额") = dr("缴费_临时停放_缴费时间") * 3
Else
dr("缴费_临时停放_缴费金额") = 20
End If
End Select
[此贴子已经被作者于2020/12/27 21:26:07编辑过]