- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码冲突 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106098)
-- 发布时间：2017/9/1 20:42:00
-- 代码冲突
代码1
If e.DataCol.Name = "下周工作计划" Then
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
fdr("事件类型") = e.DataRow("事件类型")
fdr("项目名称") = e.DataRow("项目名称")
fdr("项目流程") = e.DataRow("项目流程")
fdr("项目内容") = e.DataRow("项目内容")
fdr("状态") = e.DataRow("状态")
fdr("本周工作目标") = e.DataRow("下周工作计划")
End If
End If
代码2
Dim t As Table = Tables("计划表")
For Each r As Row In t.Rows
If r("状态") = "办理中" Then
r("进行_开始日期") = Date.Now
Else
End If
Next
每次增加行后 状态状态都会更新进行_开始日期列。
可以是在正常执行代码1后，代码2不会受代码1的影响吗？其他的输入还是有用，比如手动输入代码2还是有效果的。
感谢 感谢
-- 发布时间：2017/9/1 20:56:00
--
代码分别都在什么事件的？
事件的完整代码发上来看看
-- 发布时间：2017/9/1 21:55:00
--
都在 datacolchanged 里面
If e.DataCol.Name = "下周工作计划" Then
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
fdr("事件类型") = e.DataRow("事件类型")
fdr("项目名称") = e.DataRow("项目名称")
fdr("项目流程") = e.DataRow("项目流程")
fdr("项目内容") = e.DataRow("项目内容")
fdr("状态") = e.DataRow("状态")
fdr("本周工作目标") = e.DataRow("下周工作计划")
End If
End If
Dim t As Table = Tables("计划表")
For Each r As Row In t.Rows
If r("状态") = "办理中" Then
r("进行_开始日期") = Date.Now
Else
End If
Next
这是全部代码
感谢 感谢
-- 发布时间：2017/9/1 22:29:00
--
Select Case e.DataCol.Name
Case "下周工作计划"
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
fdr("事件类型") = e.DataRow("事件类型")
fdr("项目名称") = e.DataRow("项目名称")
fdr("项目流程") = e.DataRow("项目流程")
fdr("项目内容") = e.DataRow("项目内容")
fdr("状态") = e.DataRow("状态")
fdr("本周工作目标") = e.DataRow("下周工作计划")
End If
Case "状态"
If e.DataRow("状态") = "办理中" Then
e.DataRow("进行_开始日期") = Date.Now
End If
End Select
-- 发布时间：2017/9/1 22:39:00
--
感谢 感谢 可以了 感谢
如果"状态"= "完成" ，就在"进行_完成日期"列输入日期可以吗？差别是不在是选择改变的行，而是改变行“分类”列相同同时进行_开始日期列 有字符的列，这个可以吗？感谢 感谢
相当于 状态列 选择完成，然后先查找“类别”列内容相同的，然后同时在已经输入日期的“进行_进行日期”列同行的“进行_完成日期”列输入时间，感谢 感谢 ，不知道我说清楚没有，实在是不好意思。感谢 感谢
[此贴子已经被作者于2017/9/1 22:46:20编辑过]
-- 发布时间：2017/9/2 23:22:00
--
能帮忙看看这个吗？就当增加一行后，会复制上一行的类容，这种情况可以不输入 进行_开始日期 列的日期吗？只是箭头用选择才有效 感谢 感谢
此主题相关图片如下：qq截图20170902232246.jpg
Select Case e.DataCol.Name
Case "下周工作计划"
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
fdr("事件类型") = e.DataRow("事件类型")
fdr("项目名称") = e.DataRow("项目名称")
fdr("项目流程") = e.DataRow("项目流程")
fdr("项目内容") = e.DataRow("项目内容")
\'fdr("状态") = e.DataRow("状态")
fdr("本周工作目标") = e.DataRow("下周工作计划")
End If
Case "状态"
If e.DataRow("状态") = "办理中" Then
e.DataRow("进行_开始日期") = Date.Now
e.DataRow("状态") = e.DataRow("状态")
End If
End Select
-- 发布时间：2017/9/3 12:02:00
--
没看到你上面写的什么意思，上传具体实例，说明如何操作表，要做到什么效果。
-- 发布时间：2017/9/3 14:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:甘特图.table |
我重新做例子，太麻烦你了，感谢 感谢
给你们填麻烦了，感谢 感谢
已经实现功能1：代码本来是在 状态列输入办理中在计划_开始日期 输入时间，但是只是本行。
已经实现功能2：在下周工作计划列输入内容会把状态列内容复制到新建的行。
想请教的问题是：在功能2的时候，功能1 ，也就是可以不在当行输入日期吗？但只是在用功能1的时候不在日期列输入日期，感谢 感谢。
问题2就是当在状态列输入已完成后， 在计划_完成日期 列输入当天的日期，但行是 筛选项目流程相同的行里面，同时在计划_开始日期 已经输入了日期的行输入当时的日期，感谢 感谢
此主题相关图片如下：qq截图20170903150155.jpg
[此贴子已经被作者于2017/9/3 15:09:56编辑过]
-- 发布时间：2017/9/3 15:01:00
--
写了一大堆，完全没看懂你想表达什么。上传具体实例，说明哪个表哪行输入什么，最后要什么效果。
-- 发布时间：2017/9/3 15:12:00
--
确实太为难你了，感谢 感谢，只是没有你的帮助，实在是毫无头绪，感谢你，谢谢