Dim sd As Date = e.Form.Controls("DateTimePicker1").Value
Dim ed As Date = e.Form.Controls("DateTimePicker2").Value
Dim dt As DataTable
Dim dtb As New DataTableBuilder("计分统计表")
dtb.AddDef("工号", Gettype(String), 16)
dtb.AddDef("计分金额", Gettype(Double))
dt = dtb.Build(true)
'开始逐行累加统计
For Each dr1 As DataRow In DataTables("派工").Select("截止日期>='" & sd & "' and 截止日期 <'" & ed.AddDays(1) & "' and 交单='已交单' and 工号 is not null")
Dim nms() As String = dr1("工号").Split(",") '将工号列内容拆分成数组
Dim v As Double = dr1("计分金额") / nms.Length '获得平均之后每个工号的生产计分金额
For Each nm As String In nms '遍历参与加工此产品的每个工号
Dim dr2 As DataRow = dt.Find("工号='" & nm & "'")
If dr2 Is Nothing Then
dr2("工号") = nm
End If
dr2("计分金额") = dr2("计分金额") + v '加上平均后的产量
Next
Next
e.Form.Controls("计分统计表").Table.DataSource = dt
加好友 
发短信
Post By：2018/8/19 8:40:00 [显示全部帖子]
