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

 贴出 事件代码 来看看

 删除的时候  e.NewValue 为空，你要判断一下！

 ‘参考

Dim dic As new Dictionary(of String,String)
dic.Add("高锰酸盐指数L","高锰酸盐指数")
dic.Add("五日生化需氧量L","五日生化需氧量")
dic.Add("氨氮L","氨氮")
dic.Add("石油类L","石油类")
dic.Add("挥发酚L","挥发酚")
Dim cln As String = e.DataCol.Name
If dic.ContainsKey(cln) AndAlso E.NewValue > "" Then
    If e.NewValue.contains("L") Then
        e.DataRow(dic(cln)) = val(e.NewValue) / 2
    Else
        e.DataRow(dic(cln)) = e.NewValue
    End If
End If