采购单：
datacolchanged:
' 采购单增加记录，同时在应付账款表中
Select Case e.DataCol.name
Case "采购编号"
If e.DataCol.Name = "采购编号" AndAlso e.NewValue <> Nothing Then
Dim fdr As DataRow = DataTables("应付账款表").SQLFind("采购编号 = '" & e.NewValue & "'")
If fdr Is Nothing Then
fdr = DataTables("应付账款表").AddNew
fdr("采购编号") = e.DataRow("采购编号")
fdr("采购日期") = e.DataRow("采购日期")
fdr("采购单位") = e.DataRow("采购单位")
fdr.save
End If
End If
End Select
采购单：datarowdeleting中
Dim dr As DataRow = DataTables("应付账款表").SQLFind("采购编号 = '" & e.DataRow("采购编号") & "'")
If dr IsNot Nothing Then
dr.Delete()
End If
为什么在采购单中删除记录，应付账款表中 的 该记录还存在？
帮指导一下！
加好友 
发短信
Post By：2016/9/1 14:46:00 [只看该作者]
