以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动添加问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44988)
--  作者：lfxxdt
--  发布时间：2014/1/13 14:13:00
--  自动添加问题

Dim nms As List(of String) = DataTables("员工档案").GetUniqueValues("部门 = \'" & rb & "\'","姓名")
    For Each nm As String In nms
        Dim dr1 As DataRow = DataTables("日报表").AddNew()
        dr1("姓名") = nm
    Next

以上代码是将员工档案中姓名自动添加到日报表中，需如何修改使自动添加的姓名是按照员工档案中录入的顺序添加进去

--  作者：Bin
--  发布时间：2014/1/13 15:22:00
--  
换一个方式,使用GetComboLIstString就可以设置排序了
--  作者：lfxxdt
--  发布时间：2014/1/13 15:48:00
--  
Dim nms As List(of String) = DataTables("员工清单").GetComboListString("姓名","工序 = \'" & rb & "\'","序号")
    For Each nm As String In nms
        Dim dr1 As DataRow = DataTables("日报表").AddNew()
        dr1("姓名") = nm
    Next
--  作者：lfxxdt
--  发布时间：2014/1/13 15:48:00
--  

以上代码运行不了

 

 
--  作者：Bin
--  发布时间：2014/1/13 15:57:00
--  
你没有仔细看我发给你的帮助

For Each nm As String In DataTables("员工清单").GetComboListString("姓名","工序 = \'" & rb & "\'","序号").split("|")
   Dim dr1 As DataRow = DataTables("日报表").AddNew()
        dr1("姓名") = nm
next
--  作者：lfxxdt
--  发布时间：2014/1/13 16:04:00
--  
已知道了，谢谢