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 IfEnd If