主题：删除行提示

 

删除行提示

当删除一行或多行时，如果要删除行中的“一级类别”、“二级类别”、“三级类别”、“四级类别”、“五级类别”、“六级类别”列的值与其它行不重复(类似不重复行)，则提示“该行包含类别 是否删除？”

 

请问如何设置？

“一级类别”……“六级类别”列的值都非空时，能正常提示，如果某一列为空值时，不会提示，请问如何设置？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

'删除行BeforeDeleteDataRow
Dim dr As DataRow = e.DataRow
Dim dr1 As List(of DataRow) = e.DataTable.Select("一级类别 Like '" & dr("一级类别") & "'And 二级类别 Like '" & dr("二级类别") & "'And 三级类别 Like '" & dr("三级类别") & "' And 四级类别 Like '" & dr("四级类别") & "' And 五级类别 Like '" & dr("五级类别") & "' And 六级类别 Like '" & dr("六级类别") & "'")
Dim d8 As String = dr("货品编号")
Dim d7 As String = " 货品编号:" & d8 & " 该行包含类别, 是否删除?"
If dr("货品编号") IsNot Nothing And dr1.count = 1 Then
If MessageBox.Show(d7,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No Then
        e.Cancel= True
Else
End If
End If

 

 

“一级类别”……“六级类别”列的值都非空时，能正常提示，如果某一列为空值时，不会提示，请问如何设置？

谢谢!