想实现“项目进度”中“责任人”变更后，把该项目编号所有的责任人信息更新到“项目信息”中“自动组成员”。不加红色代码，运行正常。假如甲、乙都打开表后，A项目里有3个责任人，甲先添加了个新责任人，那么甲界面里的“自动组成员”里变成4个人；后来乙又添加了个新责任人，在乙界面里“自动组成员”还是4个人，甲加进去的责任人就被覆盖掉了。加了红色代码后，整个运行就出错“此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”。
If e.DataCol.Name = "责任人" Then
DataTables("项目进度").Save()
DataTables("项目进度").RemoveFor("项目编号 = '" & e.DataRow("项目编号") & "'")
DataTables("项目进度").AppendLoad("项目编号 = '" & Tables("项目信息").Current("项目编号") & "'",True)
Dim dr As DataRow
Dim st As String
dr = DataTables("项目信息").Find("[项目编号] = '" & Tables("项目信息").Current("项目编号") & "'")
If dr IsNot Nothing
dr("自动组成员") = st & DataTables("项目进度").GetComboListString("责任人","项目编号 = '" & e.DataRow("项目编号") & "'", "_Identify").Replace("|",",")
End If
End If
DataTables("项目信息").Save()
这代码应该如何修改？能够在变更的时候，先加载未显示数据，在汇总。除了OpenQQ即时高效同步数据外，还有其它办法不？OpenQQ一点不会
加好友 
发短信
Post By：2018/5/12 14:02:00 [只看该作者]
