Делаю универсальную форму - фильтр для своих приложений (таблиц к БД). За образец взял фильтр Excel. При загрузке данной формы в ней расположены 2-а комбобокса, где пользователь выбирает названия нужного поля из БД. А между ними расположена логика условий - искать "это И это", либо "это Или это" (переключатели Option Button). Есть ещё кнопка "+", которая добавляет дополнительные условия для ввода информации (если 2-х условий недостаточно) - (см. рис.).
Проблема в том, что я не могу сделать так, чтобы в каждых 2-х последующих Option Button пользователь выбирал нужный, оставляя выбранное значение в предыдущих (см. рис.).
Добавляю на форму следующим образом:
- Код: Выделить всё
Private Sub cmdAddCondition_Click()
Dim i As Integer
i = cmbColName.Count
Load cmbColName(i)
Load cmbCondition(i)
cmbColName(i).Top = cmbColName(i - 1).Top + 850
cmbCondition(i).Top = cmbCondition(i - 1).Top + 850
cmdAddCondition.Top = cmdAddCondition.Top + 850
cmbColName(i).Visible = True
cmbCondition(i).Visible = True
Call NastrCmb(cmbColName(i))
Call NastrCmb(cmbCondition(i))
Set cmbColName(i).RowSource = cmbColName(i - 1).RowSource
cmbColName(i).SelectedItem = 1
i = optSovpNo.Count
Load optSovpNo(i)
Load optSovpYes(i)
optSovpNo(i).Top = optSovpNo(i - 1).Top + 850
optSovpYes(i).Top = optSovpYes(i - 1).Top + 850
optSovpNo(i).Visible = True
optSovpYes(i).Visible = True
optSovpNo(i).Value = True
End Sub
P.S. Пытался Option Buttin поместить во фрейм, но это менее наглядно, и столкнулся с рядом др. проблем... Извините за беспокойство, уважаемые.
[/code]