主题：代码求助

哪位高手看看下面的代码错在哪里，谢谢

If e.DataCol.Name = "数量_B" Then
    Dim pr As DataRow
    pr = DataTables("PBKC").Find("品号 = '" & e.DataRow("品号") & "'And[批号]='"& e.DataRow("批号") &"'")
    If pr IsNot Nothing Then
        pr("数量_B")= pr("数量_B") + e.NewValue - e.OldValue
    End If
End If