狐爸,多谢你的帮忙,不过我的项目中下方右边还有一个关联表,这是一个查询表,我用同样的方法未能揍效.不知是什么原因
If e.Table.name = "会员表.会员见面副表" Dim idx As Integer = Tables("会员见面副表").FindRow(e.Row.DataRow) Tables("会员见面副表").Position = idxEnd IfIf Forms("见面管理").Opened = False Then Forms("见面管理").OpenEnd If