主题：[求助]查找符合条件的行并赋值

    For Each r1 As Row In Tables("表").Rows  '遍历表的各行
        If r1.IsNull("型号规格") =False Then           
           
                Dim dr As DataRow = DataTables("水卫工程量").Find("型号规格 = " & "'" & r1("型号规格") & "'" )
                If dr IsNot Nothing'如果找到,则设置各列内容
                    r1("根数1")= dr("根数1")
                    r1("规格1")= dr("规格1")
                    r1("根数2")= dr("根数2")
                   
                    r1("规格2")= dr("规格2")
                End If
        End If
       
    Next