老师,客服帮我找出问题了,我分享下:工程数据改变行。会导致子表流水账刷新数据,流水账刷新数据会导致子表审计fa piao刷新数据触发currentchanged,然后这个事件又改变了工程数据的行,从而形成循环
代码这样改改
If e.Table.Name = "审计fa piao" Then '这个判断目的是只能主表触发,关联表不会触发
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("工程数据").Find("[工程名称] = '" & e.Table.Current("工程名称") & "'")
If dr IsNot Nothing Then
wz = Tables("工程数据").FindRow(dr)
If wz >= 0 Then
Tables("工程数据").Position = wz
End If
End If
End If
[此贴子已经被作者于2018/9/20 16:40:53编辑过]