VB.NET DataSet重复值异常处理：替换系统报错为用户提示框

没问题，咱们来把这个生硬的系统异常换成友好的MessageBox提示，让用户一眼就明白是刀具重复了。这里有两种常用的方法，你可以根据自己的场景选：

方法1：直接捕获异常（快速上手） #

如果你的数据提交逻辑是在按钮点击或者某个操作里触发的，直接用Try-Catch块包裹提交代码，精准捕获ConstraintException并判断是不是ToolDiameter的重复问题：

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Try
        ' 这里是你把录入的数据添加到DataSet的代码，举个例子：
        Dim newToolRow As DataRow = yourDataSet.Tables("Tools").NewRow()
        newToolRow("ID") = txtToolID.Text
        newToolRow("ToolDiameter") = txtToolDiameter.Text
        yourDataSet.Tables("Tools").Rows.Add(newToolRow)
        
        ' 要是有数据适配器更新数据库的代码，也放在这个Try块里
        ' yourToolDataAdapter.Update(yourDataSet.Tables("Tools"))
    Catch ex As ConstraintException
        ' 检查异常信息里的关键词，判断是不是刀具直径重复
        If ex.Message.IndexOf("Column 'ToolDiameter' is constrained to be unique", StringComparison.OrdinalIgnoreCase) >= 0 Then
            MessageBox.Show("该刀具直径已存在，请输入其他值！", "温馨提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            ' 其他唯一约束（比如ID重复）的情况，可以单独提示或者保留原异常信息
            MessageBox.Show($"输入重复值：{ex.Message}", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    Catch ex As Exception
        ' 处理其他意外错误
        MessageBox.Show($"发生未知错误：{ex.Message}", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

方法2：前置检查（更优雅，避免异常） #

如果你不想等到系统抛出异常再处理，而是提前在数据提交到DataSet之前就检查重复，那可以用DataTable的RowChanging事件，提前拦截：

' 先在窗体加载的时候绑定事件（比如Form_Load里）
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 把你的表名替换成实际的表名
    AddHandler yourDataSet.Tables("Tools").RowChanging, AddressOf ToolsTable_RowChanging
End Sub

Private Sub ToolsTable_RowChanging(sender As Object, e As DataRowChangeEventArgs)
    ' 只处理新增或修改行的情况
    If e.Action = DataRowAction.Add Or e.Action = DataRowAction.Change Then
        Dim diameterValue = e.Row("ToolDiameter")
        ' 先判断值不是空的
        If Not IsDBNull(diameterValue) Then
            ' 查询表里有没有相同的直径值
            Dim duplicateRows = yourDataSet.Tables("Tools").Select($"ToolDiameter = '{diameterValue}'")
            
            ' 新增行的话，只要查到就重复；修改行的话要排除自己
            Dim isDuplicate As Boolean = If(e.Action = DataRowAction.Add, 
                                           duplicateRows.Length > 0, 
                                           duplicateRows.Any(Function(r) r IsNot e.Row))
            
            If isDuplicate Then
                e.Row.RejectChanges() ' 拒绝这次修改/新增
                MessageBox.Show("该刀具直径已存在，请输入其他值！", "温馨提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        End If
    End If
End Sub

这种方法的好处是用户输入完就能马上得到反馈，不会触发系统异常，体验更流畅。

额外提示 #

• 如果你用的是DataGridView绑定DataSet，那可以在CellValidating事件里做类似的检查，防止用户在单元格里输入完就触发异常。
• 要确保你的DataSet里的ToolDiameter列确实勾选了Unique约束，不然这些检查可能无法生效哦～

内容的提问来源于stack exchange，提问作者SilverR