if e.Table.Name = "窗口1.Table1" AndAlso e.Col.Name = "项目" Then
e.Cancel = True
Dim pr As DataRow = e.Row.DataRow.GetParentRow("销售")
pr("数量") = pr("数量") + e.DataRow("数量")
e.Row.Delete
End If
加好友 
发短信
Post By：2015/10/10 11:23:00 [显示全部帖子]
