主题：在Ctrl进入项目时应用窗口无错，正常进入时窗口事件报错

 你的表如果没有数据，那么取当前行数据 Tables("商品出库_table1").Current 就会报错，因为没有数据

 加上判断

If Tables("商品出库_table1").Current isNot Nothing Then

    '这里写你原来的代码

End If

 调试技巧，加入msgbox定位错误

http://www.foxtable.com/webhelp/scr/1485.htm

mg.Filter= "[第一列] is not null and [ 第二列] is not null"

mg.Merger()