专家坐堂-表事件代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 表事件代码

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

详细错误信息：

调用的目标发生了异常。

未找到列 [蓟县卫生局]。