我想只填充合计行，但现在按钮的命令结果是按选择的月份逐行（明细）填充的。
此主题相关图片如下：填充.jpg
Dim f As New Filler
f.SourceTable = DataTables("员工月填报") '指定数据来源
f.SourceCols = "员工姓名,年份,月份,生产投入_项目用工,生产投入_加班用工,生产投入_出差用工,生产投入_外勤现场等用工,生产投入_配合审计部用工" '指定数据来源列
f.DataTable = DataTables("临时统计表") '指定数据接收表
f.DataCols = "员工姓名,年份,月份,生产投入_项目用工,生产投入_加班用工,生产投入_出差用工,生产投入_外勤现场等用工,生产投入_配合审计部用工" '指定数据接收列
Dim Filter As String
With e.Form.Controls("renyuan")
If .Value IsNot Nothing Then
Filter = "员工姓名 = '" & .Value & "'"
End If
End With
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "工作时间_自始 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "工作时间_到止 <= #" & .Value & "#"
End If
End With
If e.Form.Controls("rdoYihe").Checked = True ' 如果审核状态选择了"已审核"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "审核状态 = True"
End If
If e.Form.Controls("rdoWeihe").Checked = True ' 如果审核状态选择了"未审核"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "审核状态 = False Or 审核状态 Is Null"
End If
If Filter > "" Then
Tables("员工月填报").Filter = Filter
End If
f.Distinct = True '排除重复内容,排除已有内容和空白值
f.Append = False '默认为True,在接收表中增加新行用于接收数据,设为False,则在原有的行中填充,如果不够再增加新行.
f.filter = Filter
f.Fill() '填充数据
[此贴子已经被作者于2017/7/20 11:03:15编辑过]
加好友 
发短信
Post By：2017/7/20 11:02:00 [只看该作者]
