在主表的CurrentChanged事件设置代码:
If Tables("父表.子表").Visible then
For i as integer = 0 to Tables("父表.子表" ).Rows.Count -1
Tables("父表.子表").Rows(i)("使用") = True
Tables("父表.子表").Position = i
Exit for
next
End if