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

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

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

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

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

lfxxdt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

lfxxdt

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

加好友

发短信

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

Post By：2014/1/13 15:48:00 [显示全部帖子]

以上代码运行不了

lfxxdt

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

加好友

发短信

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

Post By：2014/1/13 16:04:00 [显示全部帖子]

已知道了，谢谢

下一主题 >> << 上一主题

主题：自动添加问题