主题：[求助]日期自动计算

少点判断也可以这样

If e.DataCol.name = "借款日期"
    Dim dr As DataRow = e.DataRow
    dr("还款日期") = iif(DatePart("w", dr("借款日期")) < 6 ,dr("借款日期").AddDays(1),dr("借款日期").AddDays(9-DatePart("w", dr("借款日期"))))
End If