你这个代码，写在什么事件中？
正常的话，除了窗口的AfterLod事件，寄样报价表的currentChanged中也应该写一下：
If Forms("新增寄样").Opened then
Tables("新增寄样_Table1").Fill("Select * From {寄样明细表} Where [寄样编号] = '" & Tables("寄样报价表").Current("寄样编号") & "'","中佳五部",False)
End If
加好友 
发短信
Post By：2013/6/24 6:35:00 [显示全部帖子]
