还有一个问题,我还有一张个人分月表,我套用了上面部门的代码,但是我有一节代码不知如何做,请老师帮忙看看:
请看下面红色的那节,关键是"
Compute("Sum(实发工资)", 我不会做DataTables("个人分月工资表").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("工资库") '指定数据来源
f.SourceCols = "工号,部门,姓名" '指定数据来源列
f.DataTable = DataTables("个人分月工资表") '指定数据接收表
f.DataCols = "工号,部门,姓名" '指定数据接收列
f.Fill() '填充数据
For Each dc As DataCol In DataTables("个人分月工资表").DataCols
If dc.Name.EndsWith("月") Then
For Each dr As DataRow In DataTables("个人分月工资表").DataRows
dr(dc.name) = DataTables("工资库").Compute("Sum(实发工资)","月份 ='" & dc.Name & "' And 工号= '" & dr("工号") & "'")
Next
End If
Next
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = DataTables("个人分月工资表")
dst.Build()
就是目前这个代码也可以生成数据
[此贴子已经被作者于2009-5-8 16:10:23编辑过]