If e.DataCol.Name = "调走" AndAlso e.DataRow.IsNull(e.DataCol) = False AndAlso e.DataRow.IsNull("条码号") = False AndAlso e.DataRow.IsNull("款号") = False Then Dim dr As DataRow = DataTables("表A").Find("条码号 = '" & e.DataRow("条码号") & "' And 款号 = '" & e.DataRow("款号") & "'") If dr IsNot Nothing Then dr("件数") = dr.OriginalValue("件数") - e.NewValue End If End If