Foxtable(狐表)用户栏目专家坐堂 → 自动添加


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

主题:自动添加

美女呀,离线,留言给我吧!
zhangning
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:3355 威望:0 精华:0 注册:2016/4/14 16:56:00
自动添加  发帖心情 Post By:2016/12/8 16:38:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:绩效工时.rar

开发者 qdkf
想要达到的效果是:每个月中在“PEQ数据”或“手动工时”出现的作业者都自动在“绩效工时统计”表里新增加行,
并将“作业者”列填充

比如:
2016年10月,在“PEQ数据” 表里 出现了  A 和B C 三人,
在“手动工时”表里 出现了 B 和D 两个人,
自动在“绩效工时统计”表里增加四行,在“月度”列里显示“2016年10月”,
在"作业者”列里显示A B C D 的名字,

请老师帮帮忙,看看怎么能实现,
是菜鸟,最好能帮帮谢谢代码,谢谢!

 回到顶部
美女呀,离线,留言给我吧!
zhangning
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:3355 威望:0 精华:0 注册:2016/4/14 16:56:00
  发帖心情 Post By:2016/12/8 16:39:00 [只看该作者]

同月里,作业者是唯一的,不能重复

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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/8 16:50:00 [只看该作者]

“手动工时”表DataColChanged事件

If e.DataCol.Name = "作业者" Then 
    If e.NewValue IsNot Nothing Then 
        Dim dr As DataRow

        Dim yuedu As String = Format(Date.Today,"yyyy年MM月")
        dr = DataTables("绩效工时统计").Find("[作业者] = '" & e.NewValue & "' and 月度 = '" & yuedu & "'")
        If dr Is Nothing Then 
            dr = DataTables("绩效工时统计").AddNew()
            dr("作业者") = e.DataRow("作业者")
 dr("月度") = yuedu
        End If
       
    End If
End If

 回到顶部
美女呀,离线,留言给我吧!
zhangning
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:3355 威望:0 精华:0 注册:2016/4/14 16:56:00
  发帖心情 Post By:2016/12/9 8:39:00 [只看该作者]

谢谢老师,试运行了一下,
 Dim yuedu As String = Format(Date.Today,"yyyy年MM月")  不是today,而是“作业日期”列
这样的话,是 #作业日期#  吗?

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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/9 8:44:00 [只看该作者]

 Format( e.DataRow("作业日期"),"yyyy年MM月") 

 回到顶部
美女呀,离线,留言给我吧!
zhangning
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:3355 威望:0 精华:0 注册:2016/4/14 16:56:00
  发帖心情 Post By:2016/12/9 9:43:00 [只看该作者]

数据出来了,谢谢老师,
还有一个问题,如果我将“PEQ数据”和“手动工时”里的一些记录删除后,如图,将除了李闯外的名字的相应记录都删除后,
但“绩效工时统计”里还留着,不应该还在,应该相应变化,请老师帮看看哪里有问题,谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:1113.png
图片点击可在新窗口打开查看



 回到顶部
美女呀,离线,留言给我吧!
zhangning
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:3355 威望:0 精华:0 注册:2016/4/14 16:56:00
  发帖心情 Post By:2016/12/9 9:45:00 [只看该作者]

在项目属性里也添加了  重置代码  了,但还是出现楼上问题
If MainTable.Name = "PEQ数据" Then
    DataTables("PEQ数据").DataCols("作业者").RaiseDataColChanged()
End If
If MainTable.Name = "手动工时" Then
    DataTables("手动工时").DataCols("作业者").RaiseDataColChanged()
End If




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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/9 9:58:00 [只看该作者]

DataRowDeleting事件,find到对应的行,然后删除


 回到顶部
美女呀,离线,留言给我吧!
zhangning
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:3355 威望:0 精华:0 注册:2016/4/14 16:56:00
  发帖心情 Post By:2016/12/9 13:18:00 [只看该作者]

老师,我的意思没有说明白
是这样的,在“PEQ数据”或“手动工时”里,以月度为单位,
如新出现的作业者名字,就增加到“绩效工时统计”表里,

这部分的功能已经能实现了

如在“PEQ数据”或“手动工时”里删除了记录,
就新判定一下剩余的记录,仅仅将剩余记录相对应的作业者姓名体现到“绩效工时统计”表里,
如楼上图片中,我在  “PEQ数据”或“手动工时” 已经删掉了   王和于的记录,
但  “绩效工时统计”  还存在着  王和于的记录,没有更新,

这部分的功能还没有实现,请老师帮帮忙,谢谢!

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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/9 14:17:00 [只看该作者]

就是8楼的用法

 回到顶部
总数 19 1 2 下一页