以文本方式查看主题

-  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
--  建立一个查询表,按照时间显示某人共还款金额
查询表显示内容为:人员编号,人员姓名,电话号码,银行卡号,身份证号
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实验1.rar

按照日期查询到某个人共需还款钱数:
如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