标题：[求助]怎样把同一人同一月的数据生成到发放记录表中？
如题，怎么把人员表中的张三2009年5月工资汇总生成到第二个表中？
| 下载信息 [文件大小：396.0 KB 下载次数：1] | |
 点击浏览该文件:管理项目1.table |
最简单办法做个关联,将姓名和性别关联起来,将发放记录的工资列改成表达式列.将表达式写成"Sum(Child(工资).工资)",就可以了.
然后,写上姓名和性别,工资列自然会汇总.
最简单办法做个关联,将姓名和性别关联起来,将发放记录的工资列改成表达式列.将表达式写成"Sum(Child(工资).工资)",就可以了.
然后,写上姓名和性别,工资列自然会汇总.
老六说的,能用表达式解决的,千万不要用代码解决.看附件:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资汇总.table |
| 下载信息 [文件大小：396.0 KB 下载次数：10] | |
 点击浏览该文件:把同一人同一月的数据生成到发放记录.table |
加了一个月份列
可以不加月份列吗？另外年份不能区别
可以不加月份列吗？另外年份不能区别
将发放记录表的发放日期改成日期型。
发放记录表，DataColChanged事件代码。
Dim dr As DataRow =e.DataRow
if e.DataCol.Name ="发放日期" Then
if dr.IsNull("发放日期") Then
dr("工资") = Nothing
Else
Dim d As Date = dr("发放日期")
Dim Month As Integer = d.Month
Dim Year As Integer = d.Year
Dim StartDate As Date = New Date(Year,Month,1)
Dim EndDate As Date = New Date(Year,Month,Date.DaysInMonth(Year,Month))
dr("工资") = DataTables("人员表").Compute("sum(工资)", "[姓名] = '" & dr("姓名") & "' And [开始时间] >= #" & StartDate & "# And [开始时间] <= #" & EndDate & "#")
End If
End If
Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim s As Date = New Date(y,m,1)
dim f As New Filler
f.SourceTable = DataTables("人员表") '指定数据来源
f.SourceCols = "姓名,性别" '指定数据来源列
f.DataTable = DataTables("发放记录") '指定数据接收表
f.DataCols = "姓名,性别" '指定数据接收列
f.Fill() '填充数据
For Each dr As DataRow In DataTables("发放记录").DataRows
if dr.IsNull("工资") = True Then
dr("工资") = DataTables("人员表").Compute("Sum(工资)", "[姓名]= '" & dr("姓名") & "' And [开始时间] = '" & s & "'")
if dr.IsNull("发放日期") = True Then
dr("发放日期") = d
End If
End If
Next