主题：[求助]副表如何跟随主表当前行？

Dim bm2 As String=e.Form.Name & "_table2"
Dim s As Row=Tables("A表").Current
If s Is Nothing Then Return

Dim r As Row= Tables("A表").AddNew()
For Each m As Col In Tables("产品").cols
    If m.name="产品编码" Then Continue For  '直接克隆重复控制会告警
    r(m.Name)=s(m.Name)
Next

Dim wz As Integer=Tables(bm2).Findrow(r.DataRow)  '或者 "_Identify = '" & r("_Identify") & "'"
If wz>=0 Then
    Tables(bm2).Position=wz
End If