主题：[求助]求教多表在使用光标同步定位的问题

Dim wz As Integer
Dim dr As DataRow
Dim filter As String = "[设备ID] = '" & e.Table.Current("设备ID") & "'"
wz = Tables("电梯信息").FindRow(filter)
If wz >= 0
    Tables("电梯信息").Position = wz 
End If

wz = Tables("设备技术参数").FindRow(filter)
If wz >= 0
    Tables("设备技术参数").Position = wz 
End If

wz = Tables("定期检验时间").FindRow(filter)
If wz >= 0
    Tables("定期检验时间").Position = wz 
End If

wz = Tables("设备注册登记信息").FindRow(filter)
If wz >= 0
    Tables("设备注册登记信息").Position = wz 
End If