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


  共有3684人关注过本帖树形打印复制链接

主题:自动添加问题

帅哥哟,离线,有人找我吗?
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 [显示全部帖子]

已知道了,谢谢

 回到顶部