改为在"联系人信息"这个窗口的AfterLoad事件设置代码看看：
Dim dr As DataRow = Tables("电话平台_Table3").Current.DataRow Dim wz As Integer = Tables("联系人信息").FindRow(dr) If wz >= 0 Then Tables("联系人信息").Position = wz
End If
加好友 
发短信
Post By：2014/7/26 16:08:00 [显示全部帖子]
