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


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

主题:求填充公式

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


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

请见示范文件。
填充班组有的按钮已好了。
但是填充班组没有的按钮我搞了很久,没搞定,与以前搞的都有差别。请帮帮忙。谢谢
要求:
填充主管表姓名(条件:日期=窗口控件日期)没有而档案表有的姓名(条件:在职情况=在岗),并自动输入日期列=窗口控件日期,备注列=请假。
最好是两个按钮和二为一。(如班组无内容,最好能达到:自动输入备注列=公休)
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目10.table

[此贴子已经被作者于2009-12-21 11:30:34编辑过]

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


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

这样是否可以?

dim f As New Filler
f.SourceTable = DataTables("档案") '指定数据来源
f.SourceCols = "姓名" '指定数据来源列
f.DataTable = DataTables("主管") '指定数据接收表
f.ExcludeExistValue = true
f.DataCols = "姓名" '指定数据接收列
f.filter = "[在职情况] = '在岗'"
f.Fill() '填充=据
For Each dr As DataRow In DataTables("主管").DataRows
    if dr.IsNull("日期") Then
        dr("日期") = e.Form.Controls("日期").Value
        dr("备注") = "请假"
    End If
Next

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


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

不行,日期改变时,不再填充,没有日期对比

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


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

Dim d As Date = Forms("窗口1").Controls("日期").Value
For Each dr1 As DataRow In DataTables("档案").DataRows
    Dim dr As DataRow = DataTables("主管").Find("姓名 = '" & dr1("姓名") & "' And 日期 = '" & d & "'")
    if dr Is Nothing Then
    Dim dr2 As DataRow = DataTables("主管").AddNew()
        dr2("日期") = d
        dr2("姓名") = dr1("姓名")
        dr2("备注") = "请假"
    End If
Next

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


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

还是不对,没有排除在职情况

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


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

你加个判断不就行了。

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


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

还是帮你搞定吧。

Dim d As Date = Forms("窗口1").Controls("日期").Value
Dim drs As List(Of DataRow) = DataTables("档案").Select("[在职情况] = '在岗'")
For Each dr1 As Datarow In drs
    Dim dr As DataRow = DataTables("主管").Find("姓名 = '" & dr1("姓名") & "' And 日期 = '" & d & "'")
    if dr Is Nothing Then
        Dim dr2 As DataRow = DataTables("主管").AddNew()
        dr2("日期") = d
        dr2("姓名") = dr1("姓名")
        dr2("备注") = "请假"
    End If
Next

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


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

还是请C版帮帮忙吧,不是偷懒,确实搞不出来。谢谢

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


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

7楼还不行?

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


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

没看到7楼的,ok了,谢谢C版

 回到顶部