主题：填充公式

求按钮公式
一.班组考勤表窗口按钮，要求填充
来源表：工作记录
来源列：月份、日期、班组、姓名
接受表：班组考勤
接受列：月份、日期、班组、姓名
条件：1.来源表月份、日期、班组列=窗口3文本控件内容姓名不重复的列。
2.接受表月份、日期、班组、姓名不重复。
二。部门考勤表窗口按钮，要求填充
来源表：班组考勤
来源列：月份、日期、姓名
接受表：班组考勤
接受列：月份、日期、姓名
条件：1.来源表月份、日期列=窗口2文本控件内容姓名不重复的列。
2.接受表月份、日期、姓名不重复。
3.再填充档案表中状态列=在职的却少姓名，并一起填充窗口2文本控件内容到月份和日期列。（其实就是补充请假人员姓名。注意不能直接填充档案表中状态列=在职的姓名，因可能档案姓名有却人员，如孙二，是其他部门临时借用，档案无资料，但工作得记录，实际中这是难免的。）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

第二个您自己变通，也算是巩固知识！

DataTables("班组考勤").DataRows.Clear()
Syscmd.Project.Compact(False)
dim f As New Filler
f.SourceTable = DataTables("工作记录") '指定数据来源
f.SourceCols = "月份,日期,班组,姓名" '指定数据来源列
f.DataTable = DataTables("班组考勤") '指定数据接收表
f.ExcludeExistValue = true
f.DataCols = "月份,日期,班组,姓名" '指定数据接收列
f.filter = "[月份] = '" & e.Form.Controls("ComboBox1").Value & "' and [日期] = '" & e.Form.Controls("ComboBox2").Value & "' and [班组] = '" & e.Form.Controls("ComboBox3").Value & "'"
f.Fill() '填充=据
首先谢谢程版，但是您做的要清楚原来的数据，我变通了一下，把红色的删除，正常，这样代吗格式和语法正规吗。

删除就可以了。
不过你需要注意一下ExcludeExistValue为True是不是你想要的结果。