主题：GetComboListString 的运用

changeEdit事件，写代码

If e.Col.name = "第四列" Then
    Dim ary() As String = e.text.split("-")
    If ary.length = 2 Then
        e.Table.FinishEditing
        e.Row(e.Col.name) = ary(0)
        e.Table.StartEditing
    End If
End If