- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 填充公式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5294)
-- 发布时间：2009/12/6 22:03:00
-- 填充公式
求按钮公式
一.班组考勤表窗口按钮，要求填充
来源表：工作记录
来源列：月份、日期、班组、姓名
接受表：班组考勤
接受列：月份、日期、班组、姓名
条件：1.来源表月份、日期、班组列=窗口3文本控件内容姓名不重复的列。
2.接受表月份、日期、班组、姓名不重复。
二。部门考勤表窗口按钮，要求填充
来源表：班组考勤
来源列：月份、日期、姓名
接受表：班组考勤
接受列：月份、日期、姓名
条件：1.来源表月份、日期列=窗口2文本控件内容姓名不重复的列。
2.接受表月份、日期、姓名不重复。
3.再填充档案表中状态列=在职的却少姓名，并一起填充窗口2文本控件内容到月份和日期列。（其实就是补充请假人员姓名。注意不能直接填充档案表中状态列=在职的姓名，因可能档案姓名有却人员，如孙二，是其他部门临时借用，档案无资料，但工作得记录，实际中这是难免的。）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
[此贴子已经被作者于2009-12-6 22:06:24编辑过]
-- 发布时间：2009/12/6 23:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
第二个您自己变通，也算是巩固知识！
-- 发布时间：2009/12/7 12:57:00
--
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() \'填充=据
首先谢谢程版，但是您做的要清楚原来的数据，我变通了一下，把红色的删除，正常，这样代吗格式和语法正规吗。
-- 发布时间：2009/12/7 13:29:00
--
删除就可以了。
不过你需要注意一下ExcludeExistValue为True是不是你想要的结果。