请教大家一下，这个项目有3张表，《员工月积分统计》表（简称表2）里面有个“月其他工作说明”项，是对《员工日积分表》（简称表1）“其他工作说明”项进行的统计，请教如何求根据员工姓名以及日期区间（如2011年7月1日--2011年7月23日）将表1中指定员工在指定日期区间中所有该项的记录全部合并填充到表2中的指定位置。

     上次狐哥帮我做个一个表，里面按钮的函数设置我也学习了，但是有个问题就是输入无法累计保存，所以新开一贴求教，在此，还是在谢谢狐哥的热心。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:机场积分管理_0811.zip

窗口加入两个DateTimePicker，用于输入起始日期和结束日期，再加入一个按钮，按钮代码为：

Dim dt1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim dt2  As Date = e.Form.Controls("DateTimePicker2").value
Dim flt As String  = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Dim nms As List(of String) = DataTables("员工日积分").GetUniqueValues(flt,"姓名")
DataTables("员工月积分统计").DataRows.Clear()
For Each nm As String In nms
    Dim s As String = ""
    For Each dr As DataRow In DataTables("员工日积分").Select("姓名 = \'" & nm & "\' And " & flt)
        If s > "" Then
            s = s & chr(13) & chr(10)
        End If
        s = s &  dr("其他工作说明")
    Next
    Dim dr2 As DataRow = DataTables("员工月积分统计").AddNew
    dr2("姓名") = nm
    dr2("月其他工作说明") = s.Trim()
Next