快速开发平台研究

QQ群:322953729 欢迎大家加入讨论。

动态拆分时间段并插入数据到网格部件

业务描述:
 
如上图所示,根据起始时间、截止时间、租赁期限、租金总额、付款期数自动生成期数、应付款时间、应付款金额到网格中;

实现方法:

网格部件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
效果展示:
 

原文地址:http://bbs.delit.cn/thread-1017-1-1.html

转载请注明出处;

撰写人:度量科技www.delit.cn

阅读更多
个人分类: 快速开发平台
上一篇【报表】报表中写代码实现复杂功能简介
下一篇度量快速开发平台:如何实现字段别名效果
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭