我也上一个，初学乍练，请多指教！
一、增加限制：入库明细表作为主表时，不能增加行。
二、改在”增加行前“事件中判断。
三、用”e.Cancel=True“实现，而非删除行。
四、中间遇到些错误，我也不懂，搜索帮助文件，摸索着前进吧！
上传不了附件，贴代码吧！
If MainTable.Name="入库明细"
MessageBox.Show("作为主表,不能新增记录","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
If MainTable.Name="入库"
Dim dr1 As Row=Tables("入库明细").Current
Dim dr2 As DataRow = DataTables("入库").Find("入库单编号='" & dr1.DataRow("入库单编号") & "'")
If dr2.GetChildRows("入库明细").Count >= 6 Then
MessageBox.Show("明细记录最多6个","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel=True
End If
End If
[此贴子已经被作者于2013-11-1 12:02:11编辑过]
加好友 
发短信
Post By：2013/11/1 11:57:00 [显示全部帖子]
