自动添加问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动添加问题

共有3433人关注过本帖树形打印复制链接主题：自动添加问题

lfxxdt

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3935 威望：0 精华：0 注册：2012/6/26 13:23:00

自动添加问题 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/1/13 15:22:00 [只看该作者]

换一个方式,使用GetComboLIstString就可以设置排序了

http://www.foxtable.com/help/topics/1435.htm

lfxxdt

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3935 威望：0 精华：0 注册：2012/6/26 13:23:00

Post By：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