主题：多值字段如何引用

DataColChanged事件，写入代码

Select Case e.DataCol.name
    Case "UPC"
        Dim fdr As DataRow = DataTables("产品").Find("UPC = '" & e.DataRow("UPC") & "'")
        If fdr Is Nothing Then
            e.DataRow("供应商编号") = Nothing
        Else
            e.DataRow("供应商编号") = fdr("供应商编号")
        End If
    Case "供应商编号"
        Dim mc As String = ""
        Dim dz As String = ""
        If e.NewValue > "" Then
            For Each bh As String In e.newvalue.split("|")
                Dim fdr As DataRow = DataTables("供应商").Find("供应商编号 = '" & bh & "'")
                If fdr Is Nothing Then
                    mc &= "|"
                Else
                    mc &= fdr("供应商名称") & "|"
                    dz &= fdr("供应商地址") & "|"
                End If
            Next
        End If
        e.DataRow("供应商名称") = mc.trim("|")
        e.DataRow("供应商地址") = dz.Trim("|")
End Select