以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]获取字段的时候排序问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88065)
--  作者：syjylyq
--  发布时间：2016/7/26 11:03:00
--  [求助]获取字段的时候排序问题

比如获取一张流转车间表的流转车间名称填到订单明细表的生产车间的单元格中，怎么设置能让车间名按照输入的行的前后顺序排列而不是按字母大小排列？

Dim p As List(Of String)
Dim x As String = ""
p = DataTables("流转车间").GetValues("流转车间","工单号= \'" & Tables("计划总表_订单明细").Current("工单号") & "\'")
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(".")
--  作者：大红袍
--  发布时间：2016/7/26 11:18:00
--  

p = DataTables("流转车间").GetValues("流转车间","工单号= \'" & Tables("计划总表_订单明细").Current("工单号") & "\'")

 

改成

 

p = DataTables("流转车间").GetValues("流转车间","工单号= \'" & Tables("计划总表_订单明细").Current("工单号") & "\'","_Sortkey")
--  作者：syjylyq
--  发布时间：2016/7/26 12:55:00
--  

谢谢！