主题：将集合数据填充到姓名列，重复填充2000多行，什么原因？

好的，谢谢

可以的，但能不能点一次生成数据后，如果再点，已生成数据的不再生成，能否？

太棒了，谢谢，专家就是专家，太厉害了，谢谢

有点蓝，年度、节假日名称、值班日期 怎么引用 ，谢谢

使用find函数通过姓名查表然后取值：http://www.foxtable.com/webhelp/topics/0396.htm

我试试，谢谢

有点蓝，我搞不好，麻烦你帮我写一下，谢谢 

If e.DataCol.Name = "姓名" Then
    If e.NewValue Is Nothing Then
        e.DataRow("年度") = Nothing
        e.DataRow("节假日名称") = Nothing
        e.DataRow("值班日期") = Nothing
         
    Else
        Dim dr As DataRow
        dr = DataTables("值班排班表").Find("[姓名] = '" & e.NewValue & "'")
        If dr IsNot Nothing 
            e.DataRow("年度") = dr("年度")
            e.DataRow("节假日名称") = dr("节假日名称")
            e.DataRow("值班日期") = dr("值班日期")
          End If
    End If
End If

看懂find是干嘛用的，学会怎么使用find，而不是抄代码，下面红色部分都是类似的用法