主题：删除表格中的数据，提示运行错误

您好，我在表中写入了一些DATACOLCHANGED之后，每次删除表格中的数据的时候，老是提示运行错误，请问是什么原因？谢谢

此主题相关图片如下：1.png

我重新制作了一个表，就是上面的代码，出现的结果跟上面一样，删除表格中的数据的时候，就出现错误

如何修改了，请专家指正，谢谢

我加上去了，还是一样的错误，是什么原因了，谢谢专家指正

Select Case e.DataCol.Name

    Case "溶解氧L","高锰酸盐指数L","五日生化需氧量L","氨氮L","石油类L","挥发酚L"

        If e.DataRow.IsNull(e.DataCol.Name) = False Then

            If  e.NewValue.Contains("L") Then

                e.DataRow(e.DataCol.Name.Replace("L","")) = e.NewValue

            Else

                e.DataRow(e.DataCol.Name.Replace("L","")) = val(e.NewValue) / 2

            End If

        End If

End Select

 

If e.DataCol.Name = "溶解氧L" Then

    If e.NewValue.Contains("L") Then

        e.DataRow("溶解氧") = val(e.NewValue) / 2

    Else

        e.DataRow("溶解氧") = e.NewValue

    End If

End If

If e.DataCol.Name = "高锰酸盐指数L" Then

    If e.NewValue.Contains("L") Then

        e.DataRow("高锰酸盐指数") = val(e.NewValue) / 2

    Else

        e.DataRow("高锰酸盐指数") = e.NewValue

    End If

End If

If e.DataCol.Name = "五日生化需氧量L" Then

    If e.NewValue.Contains("L") Then

        e.DataRow("五日生化需氧量") = val(e.NewValue) / 2

    Else

        e.DataRow("五日生化需氧量") = e.NewValue

    End If

End If

If e.DataCol.Name = "氨氮L" Then

    If e.NewValue.Contains("L") Then

        e.DataRow("氨氮") = val(e.NewValue) / 2

    Else

        e.DataRow("氨氮") = e.NewValue

    End If

End If

If e.DataCol.Name = "石油类L" Then

    If e.NewValue.Contains("L") Then

        e.DataRow("石油类") = val(e.NewValue) / 2

    Else

        e.DataRow("石油类") = e.NewValue

    End If

End If

还是出现这种错误，不知道问题在哪里，请专家指正，谢谢
此主题相关图片如下：3.png

看了，还是一样的错误，不知道原因了

好的,谢谢了