以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]获取子表值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89934)
--  作者：syjylyq
--  发布时间：2016/9/1 16:32:00
--  [求助]获取子表值

有一张订单明细表，想要显示各个订单的生产车间，获取流转车间表的值，

    Dim p As List(Of String)
    Dim x As String = ""
    p = DataTables("流转车间").GetValues("流转车间","工单号= \'" & Tables("计划总表_订单明细").Current("工单号") & "\'","_Sortkey")
    For Each s As String In p
        x = x + s + "→"
    Next
    Dim v As Boolean = (x <> "")
    If v = False Then
        x = "工序未设置!"
    End If
    Tables("计划总表_订单明细").Current("生产车间") = x.trim("→")
现在有个问题，有些订单的工序可能要某车间加工后去其他车间加工，再回转到该车间继续加工，就不能用GetValues了，请问改用什么方法？
--  作者：有点蓝
--  发布时间：2016/9/1 16:45:00
--  
Dim p As List(Of DataRow)
Dim x As String = ""
p = DataTables("流转车间").Select("流转车间","工单号= \'" & Tables("计划总表_订单明细").Current("工单号") & "\'","_Sortkey")
For Each s As DataRow In p
    x = x + s("流转车间") + "→"
Next
Dim v As Boolean = (x <> "")
If v = False Then
    x = "工序未设置!"
End If
Tables("计划总表_订单明细").Current("生产车间") = x.trim("→")
--  作者：syjylyq
--  发布时间：2016/9/3 10:32:00
--  
好的，谢谢！不过select的里面需要改一下。
--  作者：syjylyq
--  发布时间：2016/9/3 10:35:00
--  
另外我想问一下，我有两列，一列为车间，一列为工序，我想提取不同工序的车间名组成一个集合，请问怎么提取？
--  作者：有点蓝
--  发布时间：2016/9/3 10:55:00
--  
GetValues就可以的