主题：请大师指教！谢谢！

DataColChanging事件

If e.DataCol.name = "第二列" Then
    Dim str As String = e.NewValue
    If str > "" Then
        Dim ary() As String = str.split(" ")
        Dim n As Double = Eval2(ary(0))
        Dim d As Double = 0
        If ary.length >= 2 Then d = Eval2(ary(1))
        e.NewValue = n + d
    End If
End If

我测试，没有问题。代码请写到DataColChanging事件。