以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]想实现在人员资料表里添加数据，在数据表里显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86057)
--  作者：zhangtongrt
--  发布时间：2016/6/8 21:06:00
--  [讨论]想实现在人员资料表里添加数据，在数据表里显示
我想在“人员基本资料”表里填写基本资料，然后在“数据表”里显示出类似“想要的格式”表里的样子。。。还款日期只有每月的5、10、15、20、25、30号还。
“还款方式一”和“还款方式二”里面写有6笔金额的计算方式。点位数*第几笔金额=还款金额

我实在是做不出来，实现不了。。。请大神帮忙看看能不能实现。如果能做出来最好。跪求跪求跪求跪求跪求跪求跪求跪求。拜谢！拜谢！拜谢！拜谢！拜谢！拜谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:求帮忙.table
--  作者：zhangtongrt
--  发布时间：2016/6/9 8:14:00
--  
图片点击可在新窗口打开查看这样到底能不能实现啊？
--  作者：狐狸爸爸
--  发布时间：2016/6/9 8:22:00
--  

这个不复杂，看帮助学习的话，你也可以轻松写出来。

 

在命令窗口执行下面的代码，或者做一个按钮来来执行：

 

DataTables("数据表").datarows.clear()
For Each dr As DataRow In DataTables("人员基本资料").DataRows
    If dr.IsNull("人员编号") Then Continue For
    Dim vr As DataRow
    If dr("分期方式") = "方式一" Then
        vr = DataTables("方式一还钱方式").DataRows(0)
    Else
        vr = DataTables("方式二还钱金额").DataRows(0)
    End If
    Dim ld As Date = dr("第一次还款时间")
    For Each dc As DataCol In vr.DataTable.DataCols
        Dim dr2 As DataRow = DataTables("数据表").AddNew()
        dr2("人员编号") = dr("人员编号")
        dr2("人员姓名") = dr("人员姓名")
        dr2("电话号码") = dr("电话号码")
        dr2("银行卡号") = dr("银行卡号")
        dr2("身份证号") = dr("身份证号")
        dr2("分期点位") = dr("分期点位")
        dr2("分期方式") = dr("分期方式")
        dr2("第一次还款时间") = dr("第一次还款时间")
        dr2("还款日期") = ld
        dr2("还款金额") = dr("分期点位") * vr(dc.name)
    Next
Next
--  作者：zhangtongrt
--  发布时间：2016/6/9 8:47:00
--  
谢谢您，可是还款日期现在没有变化。
--  作者：狐狸爸爸
--  发布时间：2016/6/9 8:49:00
--  

DataTables("数据表").datarows.clear()
For Each dr As DataRow In DataTables("人员基本资料").DataRows
    If dr.IsNull("人员编号") Then Continue For
    Dim vr As DataRow
    If dr("分期方式") = "方式一" Then
        vr = DataTables("方式一还钱方式").DataRows(0)
    Else
        vr = DataTables("方式二还钱金额").DataRows(0)
    End If
    Dim ld As Date = dr("第一次还款时间")
    For Each dc As DataCol In vr.DataTable.DataCols
        Dim dr2 As DataRow = DataTables("数据表").AddNew()
        dr2("人员编号") = dr("人员编号")
        dr2("人员姓名") = dr("人员姓名")
        dr2("电话号码") = dr("电话号码")
        dr2("银行卡号") = dr("银行卡号")
        dr2("身份证号") = dr("身份证号")
        dr2("分期点位") = dr("分期点位")
        dr2("分期方式") = dr("分期方式")
        dr2("第一次还款时间") = dr("第一次还款时间")
        dr2("还款日期") = ld
        dr2("还款金额") = dr("分期点位") * vr(dc.name)
        ld = ld.AddDays(5)
        Do While ld.Day Mod 5 <> 0
           ld = ld.AddDays(1)
        Loop
    Next
Next
--  作者：zhangtongrt
--  发布时间：2016/6/9 8:57:00
--  
谢谢您完美的解决了我的问题