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


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

主题：自动添加
美女呀，离线，留言给我吧！
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 [显示全部帖子]

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

 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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,而是“作业日期”列
这样的话，是 #作业日期#  吗？
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

图片点击可在新窗口打开查看此主题相关图片如下：1113.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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

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

这部分的功能还没有实现，请老师帮帮忙，谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/12/9 14:58:00 [显示全部帖子]

根据老师的帮助 弄成了以下代码
Dim yuedu2 As String = Format( e.DataRow("作业开始时间"),"yyyy年MM月")
Dim pr2 As DataRow = e.DataRow.GetParentRow("绩效工时统计") '获得此明细对应的订单
pr2 = DataTables("绩效工时统计").Find("作业者 = '" & e.DataRow("作业者") &"' And 年月 = '" & yuedu2 & "'")
If pr2 IsNot  Nothing Then '如果有对应的订单
     If pr2.GetChildRows("PEQ数据").count  = 1 Then '且这个订单的明细只有一个了
           pr2.Delete '删除这个订单
     End If
End If

出现错误 
调用的目标发生了异常。
未将对象引用设置到对象的实例。


请老师斧正，谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/12/9 15:51:00 [显示全部帖子]

老师，谢谢，这个问题解决了，
If e.DataCol.Name = "作业者" Then
    If e.NewValue IsNot Nothing Then
        Dim dr6 As DataRow        
        Dim yuedu As String = Format( e.DataRow("作业开始时间"),"yyyy年MM月")
        dr6 = DataTables("绩效工时统计").Find("作业者 = '" & e.NewValue & "' and 年月 = '" & yuedu & "'")
        If dr6 Is Nothing Then
            dr6 = DataTables("绩效工时统计").AddNew()
            dr6("作业者") = e.DataRow("作业者")
            dr6("年月") = yuedu
        End If  
      
    End If
End If

将年月引入后，显示的是0001年01月，正确的应该是2016年01月，将作业开始时间 列重置一下后，
会重新追加行，日期也成正确的了，
我已经在项目属性里 设置了以下重置代码，但还是出现以上日期格式不对
If MainTable.Name = "PEQ数据" Then
    DataTables("PEQ数据").DataCols("作业者").RaiseDataColChanged()
    DataTables("PEQ数据").DataCols("作业者ID").RaiseDataColChanged()
    DataTables("PEQ数据").DataCols("作业开始时间").RaiseDataColChanged()

请问老师，如何能不用每次都重置，就能显示正确日期格式，谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/12/9 16:20:00 [显示全部帖子]

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

开发者  qdkf
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/12/12 9:59:00 [显示全部帖子]

谢谢老师，但是还是有“0001年”这种异常，不知道问题出在哪里？

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 7 次数据查询