这个项目里  有2个窗口  一个是更新历史记录窗口  一个是客户档案信息窗口

更新历史记录窗口 只显示部分列

客户档案信息窗口  显示全部列

代码分别在2个 按钮(详细信息botton，返回botton) 和 2个菜单按钮里

现在发现一个bug 点开项目后 点进站信息 菜单按钮 出现更新历史记录  然后点详细信息botton  发现右边的记录窗口 还是部分显示列 没切换到全部列

                                       点客户信息 也有同样的情况

但是双击表 后弹出窗口里的 详细信息 和 返回 botton 点击的话 能够部分或者全部显示列(记录窗口) 

怀疑是进站信息菜单按钮这段代码有问题

Tables("客户档案").Visible = True
Forms("历史来店记录").Show()
Forms("更新历史记录").Open()
Forms("客户档案信息").close()
Tables("客户档案").Cols("车身颜色").ShowInRecordGrid = False
Tables("客户档案").Cols("车主性别").ShowInRecordGrid = False
Tables("客户档案").Cols("车主联系方式").ShowInRecordGrid = False
Tables("客户档案").Cols("与车主的关系").ShowInRecordGrid = False
Tables("客户档案").Cols("送修人性别").ShowInRecordGrid = False
Tables("客户档案").Cols("送修人联系方式").ShowInRecordGrid = False
Tables("客户档案").Cols("建档日期").ShowInRecordGrid = False
Tables("客户档案").Cols("维修类型").ShowInRecordGrid = False
Tables("客户档案").Cols("下次保养公里数").ShowInRecordGrid = False
Tables("客户档案").OpenRecordGrid()

项目如下：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:内控系统23.rar