主题：代码出错怎样改哟

Dim r As Row = Tables("某表").Current
Dim dr As DataRow
dr = DataTables("项目报告管理表").Find("项目编号 = '" & r("项目编号") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
    r("归属项目")= dr("项目类型")
    r("日期")= dr("申报时间")
    r("领料单位")= dr("项目单位")
    r("类别")= dr("标识")
End If