With Tables("付款单")
If .current IsNot Nothing Then
If Tables("付款单_t1").GetCheckedRows.count>0 Then
MessageBox.show("1")
For Each r As Row In Tables("付款单_t1").GetCheckedRows
MessageBox.show("2")
Dim dr As DataRow=DataTables("付款明细").find("来源单据='应付对账单' and 付款单号='" & .current("付款单号") & "' and ID='" & r("_identify") & "'")
MessageBox.show("3")
If dr Is Nothing Then
Dim rr As Row=Tables("付款单.付款明细").AddNew
rr("应付对账单号")=r("应付对账单号")
rr("来源单据")="应付对账单"
rr("记账单据")=r("来源单据")
rr("ID")=r("_identify")
rr("待核销金额")=r("对账金额")-r("已核销金额")
rr("单号")=r("单号")
rr("物料名称")=r("物料名称")
Else
MessageBox.show("同一供应商付款明细不能在同一付款单分开编辑!!","提示!")
Return
End If
Next
e.Form.Controls("TabControl2").Selectedindex=0
Else
MessageBox.show("没有选中任何记录!")
End If
End If
End With
加好友 
发短信
Post By：2018/7/18 22:01:00 [只看该作者]
