Тема: Исчезают данные после команды "Обновить"
Ситуация следующая: в форме ввода в отдельной процедуре создаю пользовательский набор данных и отображаю его на модуле AxForm.
Вот код этой процедуры:
Sub ReadDeficitData(AForm, ByVal ACalcDocId) ' AForm - форма ввода ' AProdBOMId - ИД расчётного документа вида "Ведомость потребностей" Const URS_NOTE = "DeficitFromDemandSheet" Const URS_NAME = "Дефицит по ведомости потребностей" Const PAR_NAME = "CALCDOC_ID" Set ursDeficit = TCSApp.UserRecordSet(URS_NOTE, True, PAR_NAME, ACalcDocId) If Not ursDeficit Is Nothing Then CSU_Common.CreateModule(ursDeficit) ursDeficit.Show(AForm.Controls(c_adbfDeficit)) Else TCSApp.ShowErrorMessage "Ошибка доступа к набору данных:" & _ vbCrLf & URS_NOTE & " - " & URS_NAME End If ' If Not ursDeficit Is Nothing End Sub ' >>>> ReadDeficitData(AForm, ByVal ACalcDocId)
Процедура CSU_Common.CreateModule "запоминает" экземпляр объекта по уникальному имени:
Sub CreateModule(XModule) 'XModule - любой модуль, который наследуется от IModule2 On Error resume Next XModule.UserModuleName = XModule.UniqueUserModuleName End Sub
Во время работы макроса, если выполнить обновление данных (т.е. команду "Обновить"), эти самые данные пропадают.
Подскажите, пожалуйста, что сделать, чтобы данные после обновления не исчезали?