主题：多值字段的值

 DataColChanged 事件

 

If e.DataCol.Name = "姓名" Then
    If e.NewValue = Nothing Then
        e.DataRow("早班") = Nothing
        e.DataRow("中班") = Nothing
        e.DataRow("晚班") = Nothing
    Else
        Dim ary() As String = e.NewValue.split(",")
        If ary.length = 1 Then
            e.DataRow("早班") = ary(0)
        Else If ary.length = 2 Then
            e.DataRow("早班") = ary(0)
            e.DataRow("中班") = ary(1)
        Else If ary.length = 3 Then
            e.DataRow("早班") = ary(0)
            e.DataRow("中班") = ary(1)
            e.DataRow("晚班") = ary(2)
        End If
    End If
End If

 你这样肯定矛盾，没有规则怎么可能得到去掉的值。

 或者，你去编写prepareEdit事件

 

 Select Case e.Col.Name
    Case "早班", "中班", "晚班"
        e.Col.ComboList = e.Row("姓名").replace(",", "|")
End Select