主题：代码出错怎样改哟

If e.DataCol.Name = "项目编号" Then '发生变化的是物料编号吗?
    '在项目报告管理表找出该产品
    Dim dr As DataRow
    dr = DataTables("项目报告管理表").Find("项目编号 = '" & e.DataRow("项目编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("归属项目")= dr("项目类型")
        e.DataRow("日期")= dr("申报时间")
        e.DataRow("领料单位")= dr("项目单位")
        e.DataRow("类别")= dr("标识")
    End If
End If

我想要的效果能否用按钮实现，对比父表项目报告管理表和子表的材料表，如果项目编号一致，就将对应列的内容复制过去

此主题相关图片如下：qq截图20160314162802.png

只能实现更新“某表”当前选定行内容，能否查找 “某表”全表并更新