主题：在 datarowadded 事件下的问题

代码这样写

If e.DataRow.IsNull("编号") Then
   
Else
    Dim ar As DataRow = e.DataRow '新增行的行号
    Dim fr As Integer = ar("编号") '新增行的编号
    Dim dr As DataRow
       
    dr= DataTables("使用情况").find("编号='" & fr & "'") '新增物品编号的行
    If dr IsNot Nothing Then
        ar("物品品名") =dr("物品品名")
        e.DataTable.Save()
    End If   
End If