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("投入方式") = 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