主题：代码求助

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

该有空格的时候，就不要随意省略。