以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 建立一个查询表,按照时间显示某人共还款金额 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85990) |
||||
-- 作者:zhangtongrt -- 发布时间:2016/6/7 15:20:00 -- 建立一个查询表,按照时间显示某人共还款金额 查询表显示内容为:人员编号,人员姓名,电话号码,银行卡号,身份证号 按照日期查询到某个人共需还款钱数:
如2016-06-20日张三共需要还款多少 |
||||
-- 作者:zhangtongrt -- 发布时间:2016/6/7 16:10:00 -- 这个能实现么? 大神帮帮忙啊,最后一步了 |
||||
-- 作者:Hyphen -- 发布时间: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 |
||||
-- 作者:zhangtongrt -- 发布时间:2016/6/7 17:05:00 -- 那我要怎么优化这个表格才能做到? |
||||
-- 作者:zhangtongrt -- 发布时间:2016/6/7 17:10:00 -- 能不能用SQL查询语句实现? |
||||
-- 作者:大红袍 -- 发布时间:2016/6/8 10:47:00 -- 还款做成明细表。一次还款,就添加一行数据,记录日期、金额。而不是像你现在这样用列显示。 |
||||
-- 作者:zhangtongrt -- 发布时间:2016/6/8 16:11:00 -- 如果用SQL查询,能做到么? |
||||
-- 作者:zhangtongrt -- 发布时间: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 |