Foxtable(狐表)用户栏目专家坐堂 → 填充公式


  共有19229人关注过本帖树形打印复制链接

主题:填充公式

帅哥哟,离线,有人找我吗?
wqc360
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
填充公式  发帖心情 Post By:2009/12/6 22:03:00 [只看该作者]

求按钮公式
一.班组考勤表窗口按钮,要求填充
来源表:工作记录
来源列:月份、日期、班组、姓名
接受表:班组考勤
接受列:月份、日期、班组、姓名
条件:1.来源表月份、日期、班组列=窗口3文本控件内容姓名不重复的列。
2.接受表月份、日期、班组、姓名不重复。
二。部门考勤表窗口按钮,要求填充
来源表:班组考勤
来源列:月份、日期、姓名
接受表:班组考勤
接受列:月份、日期、姓名
条件:1.来源表月份、日期列=窗口2文本控件内容姓名不重复的列。
2.接受表月份、日期、姓名不重复。
3.再填充档案表中状态列=在职的却少姓名,并一起填充窗口2文本控件内容到月份和日期列。(其实就是补充请假人员姓名。注意不能直接填充档案表中状态列=在职的姓名,因可能档案姓名有却人员,如孙二,是其他部门临时借用,档案无资料,但工作得记录,实际中这是难免的。)
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2009-12-6 22:06:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/12/6 23:22:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


第二个您自己变通,也算是巩固知识!

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By: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() '填充=据
首先谢谢程版,但是您做的要清楚原来的数据,我变通了一下,把红色的删除,正常,这样代吗格式和语法正规吗。

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/12/7 13:29:00 [只看该作者]

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

 回到顶部