to:tmtony 为什么我不能进行添加和插入？

f01m026

你好，我做的是可在任意处插入的程序。
可我一运行到
        For pointer = las_fid To cur_fid Step -1
        Form_FKU_DATA.FID.Value = Form_FKU_DATA.CurrentRecord + 1
        
        If Form_FKU_DATA.NO.Value = Form_frmFmlu.DANO.Value Then
            Form_FKU_DATA.QYXH = Form_FKU_DATA.QYXH + 1
        End If
        If pointer > cur_fid Then
            DoCmd.GoToRecord acDataForm, "fku_data", acPrevious
        End If
    Next pointer
就不执行循环了，也不能做增加和插入

f01m026

我的表被我改乱了，现在怎么恢复？