Foxtable(狐表)用户栏目专家坐堂 → 代码冲突


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

主题:代码冲突

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/3 15:19:00 [只看该作者]

 上传具体项目,说明操作步骤,说明最后的效果。

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2017/9/3 15:51:00 [只看该作者]

好的 
就是当在下周工作计划列输入内容的时候增加的行的进行_开始日期列不输入日期,
第二就是在状态列输入已完成后,当天的日期输入到进行_完成日期列 输入的行不是当行,是与当行项目名称内容相同切进行_开始日期已经有内容的行。
比如在状态输入已完成,然后查找和本行项目名称列相同的,再看这些相同的行的进行_开始日期列已经输入日期,如果输入了,就在进行_完成日期 列也输入当天的日期,感谢 感谢 ,内容有些复杂,不不好意思了,感谢 感谢 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:甘特图.table



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/3 16:20:00 [只看该作者]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:甘特图.table


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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2017/9/3 17:11:00 [只看该作者]

谢谢 谢谢 太感谢了, 二个问题能在帮忙改改吗? 就是在状态列输入已完成后,在 项目名称列 内容相同的所有行内同时 计划 _开始日期也已经输入了时间的 已经计划_完成日期 列的行输入当时的日期,不一定是当行。
比如当行选择已完成, 计划_完成日期列的行 是计划_开始日期已经输入了日期,不是当行输入了才输入,没有输入就不输入,是找到项目名称相同的行内,同时 计划_开始日期列已经输入日期,在这行的计划_完成日期 列输入日期。
比如在当年选已完成,筛选出本行项目名称列相同的,在筛选出已经筛选出计划_开始日期已经输入的日期,然后在同时符合项目名称相同,计划_开始日期又已经输入日期的行,在这些行输入 当时的日期。
感谢 感谢,其实就是,这个项目名称 有开始日期的行,麻烦了 感谢 感谢 

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/3 17:18:00 [只看该作者]

Select Case e.DataCol.Name
    Case "下周工作计划"
        Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
        If fdr IsNot Nothing Then
            systemready = False
            fdr("事件类型") = e.DataRow("事件类型")
            fdr("项目名称") = e.DataRow("项目名称")
            fdr("项目内容") = e.DataRow("项目内容")
            fdr("状态") = e.DataRow("状态")
            fdr("本周工作目标") = e.DataRow("下周工作计划")
            systemready = True
        End If
    Case "状态"
        If e.DataRow("状态") = "办理中" Then
            e.DataRow("进行_开始日期") = Date.Now
        ElseIf e.DataRow("状态") = "已完成" Then
            e.DataTable.ReplaceFor("进行_完成日期", Date.Now, "项目名称 = '" & e.DataRow("项目名称") & "' and 进行_开始日期 is not null")
        End If
End Select

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2017/9/3 18:28:00 [只看该作者]

感谢 感谢 可以了,谢谢你,太感谢了,谢谢 。

 回到顶部
总数 16 上一页 1 2