DataColChanged事件
If e.DataCol.Name = "第一列" Then
If e.NewValue = "" then
e.DataRow("第二列") = Nothing
Else
e.DataRow("第二列") = e.NewValue.Split(",").length
End If