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