其他代码影响了
If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
SystemReady = False Tables("报关单.报关明细单").Current.Delete
SystemReady = TrueEnd If
加好友 
发短信
Post By：2014/8/4 9:10:00 [显示全部帖子]
