主题：多值字段如何引用

 最简单的方法：供应商表，加一列表达式列，把 编号、联系方式之类的合并成一列，直接引用此列作为多值字段。

方法二：联系方式之类的，你要引用到哪里？上传具体实例说明。

 请正确上传foxtable实例。

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