共2 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]再请教关于文本引用问题

1楼

army1221 发表于：2011/8/11 9:16:00

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:机场积分管理_0811.zip

[此贴子已经被作者于2011-8-11 9:16:27编辑过]

2楼

狐狸爸爸 发表于：2011/8/11 9:50:00

窗口加入两个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

共2 条记录, 每页显示 10 条, 页签: [1]