| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 数值表达式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92997) |
| -- 作者：散客 -- 发布时间：2016/11/18 1:09:00 -- 数值表达式 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]。 |
| -- 作者：有点蓝 -- 发布时间：2016/11/18 8:43:00 -- Tables("融资合同管理_table15").Filter = "年 < " & y Tables("融资合同管理_table16").Filter = "[年] = " & y |