主题：[求助] 复制datatable的信息

各位大侠求助

 

当前表A 中需要复制 表A所在datatable中有最近相同货号的货描列， 编下面的语句但是没反应啊， 求助

For Each r As Row In Tables("表A").Rows
Dim dr As DataRow  = DataTables("表A").Find("货号 = '" & r("货号") & "'")
    If dr IsNot Nothing Then 
        r("货描")=dr("货描")
    End If
Next