-- 作者:sloyy
-- 发布时间:2012/4/17 0:01:00
--
狐狸爸爸 你的代码有错误,我修改了一下
1:
If Tables("父表.子表").Visible then
For i as integer = 0 to Tables("父表.子表" ).Rows.Count -1
If Tables("父表.子表").Rows(i)("使用") = True then
Tables("父表.子表").Position = i
Exit for
End If
next
End if
2: 在主表的CurrentChanged事件执行不正确,我改到PositionChanged事件执行就成功了.
但是我不知道为啥,什么原因?
|