款式颜色有关联行记录会有提示,没有执行删除动作,可是款式颜色没有关联行记录,删除动作也没有执行
BeforeDeleteDataRow
If e.DataRow.GetChildRows("款式颜色").Count > 0 Then
MessageBox.Show("此款式存在款式颜色, 请先删除该款式颜色")
e.Cancel= True
End If
删除按钮
If Tables("款号登记").Current IsNot Nothing Then
If Tables("款号登记").TopPosition>-1 Then
For i As Integer=Tables("款号登记").BottomPosition To Tables("款号登记").TopPosition Step -1
Tables("款号登记").Rows(i).Delete()
Next
End If
End If