代码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还是有效果的。
感谢 感谢
加好友 
发短信
Post By：2017/9/1 20:42:00 [只看该作者]
