直接写
Dim nr1 = Tables("人员基本资料.数据表").AddNew
nr1("还款日期") = e.NewValue.AddDays(5)
Dim nr2 = Tables("人员基本资料.数据表").AddNew
nr2("还款日期") = e.NewValue.AddDays(10)