以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表引用双值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178006)

--  作者:有点灰3
--  发布时间:2022/6/14 17:17:00
--  跨表引用双值

图片点击可在新窗口打开查看此主题相关图片如下:348.png
图片点击可在新窗口打开查看
同样一个工序但是有两个不同的供应商,我想跨表引用是怎么能把这个供应商都引用出来呢 

--  作者:有点灰3
--  发布时间:2022/6/14 17:17:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:07.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/6/14 17:29:00
--  
用getvalues,或者GetComboListString
--  作者:有点灰3
--  发布时间:2022/6/14 20:35:00
--  
If e.DataCol.Name = "加工工序" Then 
    If e.NewValue Is Nothing Then 
        e.DataRow("供应商") = Nothing 
    Else
        Dim Customers As List(Of String)
        Customers = DataTables("样件制作管理系统").GetValues("策划_供应商选择", "[策划_加工工序]= \'" & e.NewValue & "\'" )
        For Each Customer As String In Customers 
            e.DataRow("供应商") = Customers("策划_供应商选择") 
        Next
    End If
End If

这样写可以吗   

--  作者:有点蓝
--  发布时间:2022/6/14 21:09:00
--  
If e.DataCol.Name = "加工工序" Then 
    If e.NewValue Is Nothing Then 
        e.DataRow("供应商") = Nothing 
    Else
        e.DataRow("供应商") = DataTables("样件制作管理系统").GetComboListString("策划_供应商选择", "[策划_加工工序]= \'" & e.NewValue & "\'" ).replace("|",",")
    End If
End If

--  作者:有点灰3
--  发布时间:2022/6/15 10:35:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:32.png
图片点击可在新窗口打开查看提一下过分要求  能不能做成这种的可以选择的按钮啊   为了方面输入啊

--  作者:有点灰3
--  发布时间:2022/6/15 10:35:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20220615103311.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/6/15 10:49:00
--  
http://www.foxtable.com/webhelp/topics/0939.htm

提个不过分的要求,找时间多看看帮助呗

--  作者:有点灰3
--  发布时间:2022/6/15 11:40:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:916.png
图片点击可在新窗口打开查看是这样设计的吗    为啥不好使呢

--  作者:有点蓝
--  发布时间:2022/6/15 11:49:00
--  
没有设置列表项目