在删除 “机房板盘端子台帐表” 的某行前进行判断；如果该表中“机房名称”和“机柜编号”和“板盘名称”与该行相同的其他行中“业务名称”不为空、弹出不能删除提示。以下命令怎么修改？
Dim dr As DataRow = e.DataRow
If e.DataRow.Isnull("业务名称") Then
Dim fdr As DataRow = DataTables("机房板盘端子台帐表").Find("机房名称 = '" & dr("机房名称") & "' and 机柜编号 = '" & dr("机柜编号") & "' And 板盘名称 = '" & dr("板盘名称") & "' ")
If fdr IsNot Nothing Then
MessageBox.Show("该设备配有板件,不能删除!!!")
e.Cancel = True
End If
End If
如果表中有以下两行、删除其中一行时正常删除
业务名称 机房名称 机柜编号 板盘名称
A AA01 ODF1
A AA01 ODF1
如果表中有以下两行、删除其中一行时弹出不允许删除提示
业务名称 机房名称 机柜编号 板盘名称
AB A AA01 ODF1
A AA01 ODF1
加好友 
发短信
Post By：2014/10/20 13:48:00 [只看该作者]
