代码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还是有效果的。
感谢 感谢