- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 建立一个查询表，按照时间显示某人共还款金额 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85990)
-- 发布时间：2016/6/7 15:20:00
-- 建立一个查询表，按照时间显示某人共还款金额
查询表显示内容为：人员编号，人员姓名，电话号码，银行卡号，身份证号
按照日期查询到某个人共需还款钱数：| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实验1.rar |
如2016-06-20日张三共需要还款多少
-- 发布时间：2016/6/7 16:10:00
-- 这个能实现么？
大神帮帮忙啊，最后一步了
-- 发布时间：2016/6/7 16:58:00
--
类似，不过这种表格不方便查询
Dim d As Date= #6/20/2016#
Dim dr As DataRow = DataTables("数据表").Find("人员姓名=\'张三\' and (第一次还款时间 = #" & d & "# or 第二次还款时间 = #" & d & "# or 第三次还款时间 = #" & d & "# )")
If dr IsNot Nothing Then
If dr("第一次还款时间") = d Then
msgbox(dr("第一笔金额"))
ElseIf dr("第二次还款时间") = d Then
msgbox(dr("第二笔金额"))
Else
msgbox(dr("第三笔金额"))
End If
End If
-- 发布时间：2016/6/7 17:05:00
--
那我要怎么优化这个表格才能做到？
-- 发布时间：2016/6/7 17:10:00
--
能不能用SQL查询语句实现？
-- 发布时间：2016/6/8 10:47:00
--
还款做成明细表。一次还款，就添加一行数据，记录日期、金额。而不是像你现在这样用列显示。
-- 发布时间：2016/6/8 16:11:00
--
如果用SQL查询，能做到么？
-- 发布时间：2016/6/8 16:47:00
--
可不可以把这段代码改成每执行一次增加一行？
If e.DataCol.Name = "第一次还款时间" Then
If e.NewValue = Nothing Then
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
e.DataRow("还款日期") = Nothing
Else
e.DataRow("还款日期") = e.newvalue.AddDays(5)
e.DataRow("还款日期") = e.newvalue.AddDays(10)
e.DataRow("还款日期") = e.newvalue.AddDays(15)
e.DataRow("还款日期") = e.newvalue.AddDays(20)
e.DataRow("还款日期") = e.newvalue.AddDays(25)
End If
End If
-- 发布时间：2016/6/8 19:41:00
--
加上代码
e.DataTable.AddNew