参考代码
Dim str As String = "320*308.66*2.8,"
Dim ary() As String = str.Split("*")
Dim n As Double = val(ary(ary.length-1))
msgbox(n)
DataColChanged事件
If e.DataCol.Name = "第一列" Then
Dim str As String = e.newvalue
Dim ary() As String = str.Split("*")
Dim n As Double = val(ary(ary.length-1))
e.DataRow("第二列") = n
End If