For Each R1 As Row In Tables("汇总表").Rows
Dim badw As String = R1("备案单位")
Dim DW As String = R1("单位")
Dim Val(5) As Integer
Tables("融资合同备案表").Filter = ""
Dim Val1,val2,val3,val4,val5 As Integer
Val1 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #" & dt0 & "#" And "备案单位 = '" & BADW & "' And "借款单位 = '" & DW & "'")
Val2 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 < #" & dt2 & "#")
Val3 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 >= #" & dt2 & "# And 接收日期 <= #" & dt3 & "#")
Val4 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 >= #" & dt1 & "# And 接收日期 <= #" & dt3 & "#")
Val5 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #" & dt3 & "#")
r1("ncs1") = val1
r1("qcs1") = val2
r1("bys1") = val3
r1("bns1") = val4
'r1("qms1") = val5