主题：[讨论]想实现在人员资料表里添加数据，在数据表里显示

我想在“人员基本资料”表里填写基本资料，然后在“数据表”里显示出类似“想要的格式”表里的样子。。。还款日期只有每月的5、10、15、20、25、30号还。

这样到底能不能实现啊？

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

 

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

 

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

谢谢您，可是还款日期现在没有变化。

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

谢谢您完美的解决了我的问题