以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取子表值  (http://www.foxtable.com/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就可以的