Dim ab As Date =DataTables("表A").compute("Max(更新时间)") Dim abc As Date ="2012-12-01" Dim t As TimeSpan = ab - abc Dim dr As DataRow For i As Integer = 0 To t.Days Dim fdr As DataRow = DataTables("表B").find("操作日期 = #" & abc.adddays(i) & "#") If fdr Is Nothing Then fdr = DataTables("表B").AddNew() End If Dim str As Date = abc.AddDays(i) fdr("操作日期") = str Next