Select Case e.DataCol.Name
Case "年","备案单位"
With Tables("融资年报表").Current
If .IsNull("年")=False And .IsNull("备案单位") = False Then
'If e.DataRow.IsNull("年")=False And e.DataRow.IsNull("备案单位") = False Then
Dim y As Integer = e.DataRow("年")
Dim dt1 As new Date(y,1,1)
Dim dt2 As new Date(y,12,31)
Dim dt0 As Date = dt1.AddDays(-1)
Dim badw As String = e.DataRow("备案单位")
Dim hts0,hts1,hts2 As Double
Dim rzed0,rzed1,rzed2 As Double
Dim sjdw0,sjdw1,sjdw2 As Double
Dim sjgh0,sjgh1,sjgh2 As Double
Dim bnlx,ljlx As Double
hts0 = DataTables("融资合同备案表").Compute("count(备案编号)","备案单位 = " & badw & " And 接收日期 <= #" & dt0 & "#")
hts1 = DataTables("融资合同备案表").Compute("count(备案编号)","备案单位 = " & badw & " And 接收日期 >= #" & dt1 & "# and 接收日期 <= #" & dt2 & "#")
hts2 = DataTables("融资合同备案表").Compute("count(备案编号)","备案单位 = " & badw & " And 接收日期 <= #" & dt2 & "#")
rzed1 = DataTables("融资合同备案表").Compute("sum(融资额度)","备案单位 = " & badw & " And 接收日期 >= #" & dt1 & "# and 接收日期 <= #" & dt2 & "#")
rzed2 = DataTables("融资合同备案表").Compute("sum(融资额度)","备案单位 = " & badw & " And 接收日期 <= #" & dt2 & "#")
sjdw0 = DataTables("融资执行").Compute("sum(实际到位本金)","备案单位 = " & badw & " And 填报时间 <= #" & dt0 & "#")
sjdw1 = DataTables("融资执行").Compute("sum(实际到位本金)","备案单位 = " & badw & " And 填报时间 >= #" & dt1 & "# and 填报时间 <= #" & dt2 & "#")
sjdw2 = DataTables("融资执行").Compute("sum(实际到位本金)","备案单位 = " & badw & " And 填报时间 <= #" & dt2 & "#")
sjgh0 = DataTables("融资执行").Compute("sum(实际归还本金)","备案单位 = " & badw & " And 填报时间 <= #" & dt0 & "#")
sjgh1 = DataTables("融资执行").Compute("sum(实际归还本金)","备案单位 = " & badw & " And 填报时间 >= #" & dt1 & "# and 填报时间 <= #" & dt2 & "#")
sjgh2 = DataTables("融资执行").Compute("sum(实际归还本金)","备案单位 = " & badw & " And 填报时间 <= #" & dt2 & "#")
sjgh1 = DataTables("融资执行").Compute("sum(实际归还利息)","备案单位 = " & badw & " And 填报时间 >= #" & dt1 & "# and 填报时间 <= #" & dt2 & "#")
sjgh2 = DataTables("融资执行").Compute("sum(实际归还利息)","备案单位 = " & badw & " And 填报时间 <= #" & dt2 & "#")
e.DataRow("本年增加合同数") = hts1
e.DataRow("累计合同数") = hts2
e.DataRow("本年增加合同金额") = rzed1
e.DataRow("累计合同金额") = rzed2
e.DataRow("年初结转") = sjdw0 - sjgh0
e.DataRow("本年实际到位数") = sjdw1
e.DataRow("本年实际归还数") = sjgh1
e.DataRow("结转下年余额") = sjdw2 - sjgh2
End If
End With
End Select
求高手指点一下
在命令窗口执行说未知编译错误
在表格输入时显示
.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2016.7.29.1
错误所在事件：表，融资年报表，DataColChanged
详细错误信息：
调用的目标发生了异常。
未找到列 [蓟县卫生局]。
加好友 
发短信
Post By：2016/11/13 0:41:00 [只看该作者]
