Здравствуйте.
Есть программа, из меню происходит вызов формы,
на ней комбобокс.

В Init комбо написан вот такой код:

Local curLpt

m.curSmo='t'+SYS(2015)
This.RowSource=''
strSQL="SELECT UPPER(name) as name,kod FROM lpt order by name"
m.result=SQLExec(nConn,strSQL,m.curLpt)

This.IncrementalSearch=.T.
This.ColumnCount = 1
This.BoundColumn = 2
This.BoundTo = .T.
This.ColumnWidths ='300,0'
This.RowSourceType=2
This.RowSource=m.curLpt

в Destroy комбо:

If Used(this.RowSource) Then
Use In(this.RowSource)
Endif

И все работает прекрасно, если только не нажать на кнопку "Выход" в меню.
Появляется сообщение, что нет доступа и далее название моего курсора,
который служит источником данных для комбы.

Код кнопки "Выход":

vareexit=MESSAGEBOX("Программа будет закрыта.Вы уверены?",33,"Выход")
IF vareexit=1
DO exitprogram.prg
ENDIF

Код exitprogram.prg:

Procedure ExitProgram

* устанавливаем меню по умолчанию

Set Sysmenu To

* отключаем обработчик ошибок

On Error

* включаем статусную строку

Set Status Bar On

* закрываем все окна и таблицы

Close All

* очищаем все переменные из памяти

Clear All

* и выходим в среду разработки или операционную систему

Cancel

Endproc

Помогите решить данную проблему.

Jonny540,

This.RowSource=' ' в Destroy комбо не помогло.

IgorNG,

выдает название курсора.

Есть мысль о том, чтобы попробовать закрывать формы, в
процедуре выхода. Что скажете, господа?

IgorNG,

Закомментировал строку Close All и все отработало.
Объясните пожалуйста мне, неужели эту команду не нужно выполнять при закрытии приложения?

Jonny540,

А так фокса ругается, что не существует переменнная m.curLpt.

If Used (this.m.curLpt) Then
Use In (this.m.curLpt)
Endif

IgorNG,

Верно, но ведь PUBLIC-переменные не очень-то и рекомендуют использовать.

Всем спасибо. Проблема решена. Советы учту.