datacolchanged
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