以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  表事件代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92786)

--  作者：散客 --  发布时间：2016/11/13 0:41:00 --  表事件代码 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 详细错误信息： 调用的目标发生了异常。 未找到列 [蓟县卫生局]。

--  作者：散客 --  发布时间：2016/11/13 1:02:00 --   已解决