主题：[求助]如何根据规定自动生成工作日程表

DataTables("免疫安排表").DataRows.Clear

For Each r1 As Row In Tables("进鸡记录").Rows

    Dim BirthDay As Date = r1("日期")

    For Each r2 As Row In Tables("免疫程序").Rows

        Dim r As Row = Tables("免疫安排表").AddNew

        r("日期") = BirthDay.AddDays(r2("日龄"))

        r("栏舍号") = r1("栏舍号")

        r("日龄") = r2("日龄")

        r("疫苗名称") = r2("疫苗名称")

        r("接种方法") = r2("接种方法")

        r("剂量") = r2("剂量")

    Next