关闭

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

75人阅读 评论(0) 收藏 举报
分类:
业务描述:
 
如上图所示,根据起始时间、截止时间、租赁期限、租金总额、付款期数自动生成期数、应付款时间、应付款金额到网格中;

实现方法:

网格部件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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:44768次
    • 积分:2579
    • 等级:
    • 排名:第14811名
    • 原创:223篇
    • 转载:2篇
    • 译文:1篇
    • 评论:1条