Dim j As Byte For Each dr As DataRow In DataTables("表B").DataRows Dim h As DataRow=DataTables("表A").Find("编号='" & dr("编号") & "'") If h IsNot Nothing Then Dim ks As Byte=h("借出日期").day Dim js As Byte=h("退还日期").day For j = ks To js dr("日期_" & j)=h("单价") Next End If Next