以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表引用自动更新中某一行数据无法正常执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106799)
--  作者：webccc
--  发布时间：2017/9/15 18:06:00
--  跨表引用自动更新中某一行数据无法正常执行
Select Case e.DataCol.name
Case "政策项目编号","企业编号","工号","研发项目编号","研发活动编号","研发活动名称","开始日期","结束日期"
Dim dr As DataRow = e.DataRow
Dim dc As DataCol = e.DataCol
Dim zcr As DataRow 
Dim filter = "研发项目编号 = \'" & dr("研发项目编号") & "\'"
zcr = DataTables("研发支出").find(filter)
If zcr IsNot Nothing Then
zcr(dc) = dr(dc)
End If
End Select

以上是我在一个表中的datacolchanged中的代码，修改表中其中一行数据的时候无法正常跨表引用更新对应的行数据，其他的行数据都能正常修改更新替换，唯独这一行数据不能正常引用更新，请问问题出在哪里的？谢谢！
--  作者：有点甜
--  发布时间：2017/9/15 18:10:00
--  

弹出数据看看，应该是编号不对应照成的

 

msgbox(filter)
--  作者：webccc
--  发布时间：2017/9/16 22:17:00
--  
好的，谢谢，我看一下