Foxtable(狐表) → 用户栏目 → 专家坐堂 → 将集合数据填充到姓名列，重复填充2000多行，什么原因？


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

主题：将集合数据填充到姓名列，重复填充2000多行，什么原因？
帅哥哟，离线，有人找我吗？
hrw68529
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1095 积分：8458 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/1/7 11:54:00 [只看该作者]

真不好意思，学习不精，一头雾水，还是弄不好，

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/7 12:04:00 [只看该作者]

Dim Vals As List(of String)
Vals = DataTables("值班排班表").GetValues("处级带班_姓名")
For Each name As String In DataTables("值班排班表").GetValues("科级带班_姓名")
    If Vals.Contains(name) = False Then vals.Add(name)
Next
For Each name As String In DataTables("值班排班表").GetValues("值班人员_姓名")
    If Vals.Contains(name) = False Then vals.Add(name)
Next
Dim dr As DataRow
For Each name As String In vals
    dr = DataTables("补助测试表").find("姓名='" & name & "'")
    If dr Is Nothing Then
        dr = DataTables("补助测试表").AddNew
        dr("姓名") = name
    End If
    dr("次数") = DataTables("值班排班表").GetValues("值班日期|处级带班_姓名","处级带班_姓名='" & name & "'").Count + DataTables("值班排班表").GetValues("值班日期|科级带班_姓名","科级带班_姓名='" & name & "'").Count + DataTables("值班排班表").GetValues("值班日期|值班人员_姓名","值班人员_姓名='" & name & "'").Count
    Dim dr2 As DataRow = DataTables("值班排班表").find("处级带班_姓名='" & name & "' or 科级带班_姓名='" & name & "' or 值班人员_姓名='" & name & "'")
    If dr2 IsNot Nothing Then
        dr("年度") = dr2 ("年度")
    End If
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1095 积分：8458 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/1/7 17:11:00 [只看该作者]

有点蓝老师：不好意思，元旦和春节都值班人员，统计到一起了，我想是元旦值班的人员和春节值班的人员分开计算次数，我搞了半天，弄不好，我真笨死了，请你指点。谢谢

Dim Vals As List(of String)
Vals = DataTables("值班排班表").GetValues("处级带班_姓名|节假日名称","","年度,值班日期")
For Each name As String In DataTables("值班排班表").GetValues("科级带班_姓名|节假日名称","","年度,值班日期")
    If Vals.Contains(name) = False Then vals.Add(name)
Next
For Each name As String In DataTables("值班排班表").GetValues("值班人员_姓名|节假日名称","","年度,值班日期")
    If Vals.Contains(name) = False Then vals.Add(name)
Next
Dim dr As DataRow

For Each name As String In vals
    dr = DataTables("值班补助表").find("姓名='" & name & "'")
    If dr Is Nothing Then
        dr = DataTables("值班补助表").AddNew
        dr("姓名") = name
    End If
    dr("次数") = DataTables("值班排班表").GetValues("年度|节假日名称|值班日期|处级带班_姓名","处级带班_姓名='" & name & "'").Count + DataTables("值班排班表").GetValues("年度|节假日名称|值班日期|科级带班_姓名","科级带班_姓名='" & name & "'").Count + DataTables("值班排班表").GetValues("年度|节假日名称|值班日期|值班人员_姓名","值班人员_姓名='" & name & "'").Count
    Dim dr2 As DataRow = DataTables("值班排班表").find("处级带班_姓名='" & name & "' or 科级带班_姓名='" & name & "' or 值班人员_姓名='" & name & "'")
    If dr2 IsNot Nothing Then
        dr("年度") = dr2 ("年度")
        'dr("节假日名称") = dr2 ("节假日名称")
        dr("值班日期") = dr2 ("值班日期")
    End If
    
Next
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1095 积分：8458 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/1/7 17:16:00 [只看该作者]

元旦和春节可能有同一个人值班，但要分开计算元旦值班人次和春节值班人次，不知怎么弄
[此贴子已经被作者于2020/1/7 17:16:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/7 17:40:00 [只看该作者]

Dim Vals As List(of String)
Vals = DataTables("值班排班表").SQLGetValues("处级带班_姓名 + ',' + 节假日名称","处级带班_姓名 is not null")

For Each name As String In DataTables("值班排班表").SQLGetValues("科级带班_姓名 + ',' + 节假日名称","科级带班_姓名 is not null")
    If Vals.Contains(name) = False Then vals.Add(name)
Next
For Each name As String In DataTables("值班排班表").SQLGetValues("值班人员_姓名 + ',' + 节假日名称","值班人员_姓名 is not null")
    If Vals.Contains(name) = False Then vals.Add(name)
Next
Dim dr As DataRow

For Each name As String In vals
    Dim arr() As String = name.Split(",")
    dr = DataTables("补助测试表").find("姓名='" & arr(0) & "' and 节假日名称='" & arr(1) & "'")
    If dr Is Nothing Then
        dr = DataTables("补助测试表").AddNew
        dr("姓名") = arr(0)
        dr("节假日名称") = arr(1)
    End If
    dr("次数") = DataTables("值班排班表").GetValues("值班日期|处级带班_姓名","处级带班_姓名='" & arr(0) & "' and 节假日名称='" & arr(1) & "'").Count + DataTables("值班排班表").GetValues("值班日期|科级带班_姓名","科级带班_姓名='" & arr(0) & "' and 节假日名称='" & arr(1) & "'").Count + DataTables("值班排班表").GetValues("值班日期|值班人员_姓名","值班人员_姓名='" & arr(0) & "' and 节假日名称='" & arr(1) & "'").Count
    Dim dr2 As DataRow = DataTables("值班排班表").find("(处级带班_姓名='" & arr(0) & "' or 科级带班_姓名='" & arr(0) & "' or 值班人员_姓名='" & arr(0) & "') and 节假日名称='" & arr(1) & "'")
    If dr2 IsNot Nothing Then
        dr("年度") = dr2 ("年度")
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1095 积分：8458 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2020/1/7 17:57:00 [只看该作者]

太谢谢了，十分感谢，专家真好

 回到顶部
总数 26 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询