主题：求助:数据填充

我没升级，打不开，看这段代码：

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