主题：表视图不生效的问题

视图是针对Table的，每个Table都应该单独打开视图，所以你还应该:

Tables("关联表.出入库明细").OpenView("kr")

或者一次搞定：

for each t as Table In Tables
   If t.DataTable.Name = "出入库明细表" Then
     t.OpenView("kr")
   End If
Next