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

张兴康

业务描述：

如上图所示，根据起始时间、截止时间、租赁期限、租金总额、付款期数自动生成期数、应付款时间、应付款金额到网格中；

实现方法：

1. 网格部件1.RefreshData()
   
2. dim dt=网格部件1.DataTable
   
3. 
   
4. 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
   
5.         '计算应付款金额
   
6.         dim yfk =记录部件1.GetFieldValue("租金总额")/ 记录部件1.GetFieldValue("付款期数")
   
7.         '根据付款期数计算每期间隔多少月
   
8.         dim ys = 记录部件1.GetFieldValue("租赁期限") * 12/记录部件1.GetFieldValue("付款期数")
   
9.         dim dr
   
10.         For i=1 to 记录部件1.GetFieldValue("付款期数")
    
11.                 dr= dt.NewRow()
    
12.                 dt.Rows.Add(dr)
    
13.                 dr["ID"]=guid()
    
14.                 dr["期数"]=i
    
15.                 dr["应付款时间"] =  DateAdd(记录部件1.GetFieldValue("起始时间"),(i-1)*ys,"M")
    
16.                 dr["应付款金额"] = yfk
    
17.                 dr["实收金额"] = 0
    
18.                 dr["未收金额"] = yfk
    
19.         next
    
20. else
    
21.         msgbox("起始时间、截止时间、租金总额、租赁期限、付款期数不能为空")
    
22. end if

复制代码

效果展示：

张兴康

万望 发表于 2016-5-29 21:37

万望

万望

列个还不错哎

王爱东

这是你自己想的哇，就是要这样，这些功能就是类似这样实现。

张兴康

自顶一个