动态拆分时间段并插入数据到网格部件 - 度量快速开发平台-专业、快速的软件定制快开平台

网格部件1.RefreshData()
dim dt=网格部件1.DataTable
if isnull(记录部件1.GetFieldValue("起始时间")) = false and isnull(记录部件1.GetFieldValue("截止时间")) = false and isnull(记录部件1.GetFieldValue("租金总额")) = false and isnull(记录部件1.GetFieldValue("付款期数")) = false and isnull(记录部件1.GetFieldValue("租赁期限")) = false then
'计算应付款金额
dim yfk =记录部件1.GetFieldValue("租金总额")/ 记录部件1.GetFieldValue("付款期数")
'根据付款期数计算每期间隔多少月
dim ys = 记录部件1.GetFieldValue("租赁期限") * 12/记录部件1.GetFieldValue("付款期数")
dim dr
For i=1 to 记录部件1.GetFieldValue("付款期数")
dr= dt.NewRow()
dt.Rows.Add(dr)
dr["ID"]=guid()
dr["期数"]=i
dr["应付款时间"] = DateAdd(记录部件1.GetFieldValue("起始时间"),(i-1)*ys,"M")
dr["应付款金额"] = yfk
dr["实收金额"] = 0
dr["未收金额"] = yfk
next
else
msgbox("起始时间、截止时间、租金总额、租赁期限、付款期数不能为空")
end if

复制代码