主题：多值字段的值

如附件表格，“姓名”列已设置为多值字段和列表项目，选择输入后，想“早班”列中的列表项目为“姓名”列中选择的值，如表中“孙少，王东，张三”，请问如何用代码实现？谢谢

请上狐表例子.

 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