Позвольте мне настроить среду.
Это код VBA, работающий в Excel.
У меня есть пользовательская форма, которая содержит msflexgrid. Эта flexgrid показывает список клиентов и клиентов, продавцов, csr, mfg rep и территорий, назначений. Когда вы щелкаете в столбце, скажем, в столбце «Территория», открывается другая пользовательская форма для отображения списка территорий. Затем вы нажимаете на выбранную вами территорию, пользовательская форма исчезает, и новая территория заменяет старую.
Все это прекрасно работает, пока вы не нажмете на выбранной вами территории, пользовательская форма «Территория» не исчезнет (она мерцает) и новая территория не передаст основную пользовательскую форму.
Я должен упомянуть, что когда я прохожу код, он прекрасно работает.
Я предполагаю, что это как-то связано с flexgrid, так как все остальные пользовательские формы (у которых нет flexgrids), которые открывают пользовательскую форму, работают нормально.
Ниже приведен пример кода:
** Событие клика из flexgrid, которое показывает форму пользователя территории и назначение новой территории, когда форма пользователя территории закрыта.
Private Sub FlexGrid_Customers_Click()
With FlexGrid_Customers
Select Case .Col
Case 0
Case 2
Case 4
Case 6
UserForm_Territories.Show
Case Else
End Select
If Len(Trim(Misc1)) > 0 Then
.TextMatrix(.Row, .Col) = Trim(Misc1)
.TextMatrix(.Row, .Col + 1) = Trim(Misc2)
End If
End With
End Sub
** Следующие Subs используются в пользовательской форме Territory
Private Sub UserForm_Activate()
Misc1 = ""
Misc2 = ""
ListBox_Territory.Clear
Module_Get.Territories
End Sub
Private Sub UserForm_Terminate()
Set UserForm_Territories = Nothing
End Sub
Private Sub ListBox_Territory_Click()
With ListBox_Territory
Misc1 = Trim(.List(.ListIndex, 0))
Misc2 = Trim(.List(.ListIndex, 1))
End With
Hide
UserForm_Terminate
End Sub
Я знаю это длинное объяснение, но я довольно приличный программист на VBA, и это поставило меня в тупик.
Любая помощь будет принята с благодарностью.