For Each r1 As Row In Tables("PriceNew.Pricelist").rows
if r1("FPrioritized") = true
Dim fdr As DataRow = DataTables("Pricelist").Find("FNumber = '" & r1("FNumber") & "' and FNumber1 = '" & r1("FNumber1") & "'")
If fdr IsNot Nothing Then
fdr("FPrioritized") = r1("FPrioritized")
End If
End If
Next