refresh в ComboBox

[vrodo]

Помогите пожалста
есть форма в которй список заказов
в виде COMBOBOXa (ComponentOne TDBCombo) которому присвоенно значение DataMember какой то COMMAND
приоткрытии старого заказа идет команда
Анлоад Ми

после создания нового заказа( он должен попасть туда же) закрываю форму со списком, заказа НЕТ
Закрывая программу, запускаю заново заказ есть
Как сделать рефреш
я пробовал по разному ничего не получается

[vrodo]

БЛИИИИИН Сори народ САМ дурило справился

Уже 2 раз посылаю сообщение на форум и так сам себя обламываю

[vrodo]

Хмм странно получается срабатывает толко после 2 раза

Код: Выделить всё

Private Sub Form_Activate()
    DataEnvironment1.rscmd_list_all_orders.Requery
End Sub

Что делать пока не разобрался
при загрузке этой формы иползуется

Код: Выделить всё

Private Sub old_orders_Click()
Dim list As New frm_list_all_orders

    list.WindowState = vbNormal
    list.Height = list.TDBCombo1.Height + list.TDBCombo1.Top
    list.Width = list.TDBCombo1.Width + list.TDBCombo1.Left
    list.Show
    list.TDBCombo1.Refresh
End Sub

ТАААААААК...............

Пока писал этот текст понял в чем ошибка
ЛЮДИ чтобы понять свои ошибки их достаточно написать

в общем получилось следующее
Строка из формы с ComboBoxom ушла
в головной форме изменился SUB

Код: Выделить всё

Private Sub old_orders_Click()
Dim list As New frm_list_all_orders

    list.WindowState = vbNormal
    list.Height = list.TDBCombo1.Height + list.TDBCombo1.Top
    list.Width = list.TDBCombo1.Width + list.TDBCombo1.Left
    DataEnvironment1.rscmd_list_all_orders.Requery
    list.TDBCombo1.ReBind
    list.Show
End Sub

Может можно какнить проще