Case "起始日","终止日"
Dim dr As DataRow = e.DataRow
If dr.IsNull("起始日") = False AndAlso dr.IsNull("终止日") = False Then
Dim d1 As Date = dr("起始日")
Dim d2 As Date = dr("终止日")
d1 = new Date(d1.Year,d1.Month,1)
d2 = new Date(d2.Year,d2.Month,Date.DaysInMonth(d2.Year,d2.Month))
Dim dt2 As DataTable = DataTables("应实收记录")
Dim dr2 As DataRow
DataTables("应实收记录").StopRedraw
Do While d1 < d2
Dim ny As String = Format(d1,"yyyy.MM")
dr2 = dt2.Find("合同号 = '" & dr("合同号") & "' and 年月 = '" & ny & "'")
If dr2 Is Nothing Then
dr2 = dt2.AddNew
'dr2 = DataTables("应实收记录").AddNew
dr2("合同号") = dr("合同号")
dr2("收租方式") = dr("收租方式")
dr2("年月") = ny
End If
d1 = d1.AddMonths(1)
Loop
End If
DataTables("应实收记录").ResumeRedraw