Dim dr As DataRow = DataTables("应付款采购主表").Find("入库单号 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("应付款采购主表").AddNew()
-----------------
Dim dr As DataRow = DataTables("应付款采购明细表").Find("入库明细号 = '" & e.NewValue & "'")
If dr Is Nothing Then
dr = DataTables("应付款采购明细表").AddNew