主题：这样情况下如何切换到下一条记录

With Tables("主窗口_Table1") 
      If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
              .Position = .Position + 1 
      End If
End With

数据字典对于窗口无效