Dim d1 As Date = DataTables("融资合同备案表").Compute("min(接收日期)")
'msgbox(d1)
'msgbox(d1.year)
Dim d2 As Date = DataTables("融资合同备案表").Compute("max(接收日期)")
'msgbox(d2.year)
DataTables("融资年报计算表").DataRows.Clear
For i As Integer = d1.year To d2.year
Dim dr As DataRow = DataTables("融资年报计算表").AddNew()
dr("年") = i
Next
Dim y As Integer = d2.year
Tables("融资合同管理_table15").DataSource = DataTables("融资年报计算表")
Tables("融资合同管理_table15").SetColVisibleWidth("年|98|本年增加合同数|98|本年增加合同金额|98|本年增加合同应到位数|98|本年增加合同计划还款数|98|年初结转|98|本年实际到位数|98|本年实际归还数|98|结转下年余额|98|本年归还利息|98|本年申请支付|98|申请支付利息|98|本年审核支付|98|审核支付利息|98|生成报告日期时间|0")
Tables("融资合同管理_table15").AllowEdit = False
Tables("融资合同管理_table15").AutoSizeCols()
Tables("融资合同管理_table15").Filter = "年 < y"
Tables("融资合同管理_table16").DataSource = DataTables("融资年报计算表")
Tables("融资合同管理_table16").SetColVisibleWidth("年|98|本年增加合同数|98|本年增加合同金额|98|本年增加合同应到位数|98|本年增加合同计划还款数|98|年初结转|98|本年实际到位数|98|本年实际归还数|98|结转下年余额|98|本年归还利息|98|本年申请支付|98|申请支付利息|98|本年审核支付|98|审核支付利息|98|生成报告日期时间|0")
Tables("融资合同管理_table16").AllowEdit = False
Tables("融资合同管理_table16").AutoSizeCols()
Tables("融资合同管理_table16").Filter = "[年] = y"
求教：如何对数值列进行筛选，以上全是错的 一下是错误信息
.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2016.7.29.1
错误所在事件：
详细错误信息：
未找到列 [y]。
加好友 
发短信
Post By：2016/11/18 1:09:00 [只看该作者]
