в загрузке пишу
- Код: Выделить всё
Private Sub Form_Load()
...
db_file = App.Path
If Right$(db_file, 1) <> "\" Then
db_file = db_file & "\"
End If
db_file = db_file & "constraints.mdb"
adoConstTypes.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file & ";Persist Security Info=False"
adoConstTypes.Caption = "Constraint type"
adoConstTypes.Visible = False
...
End Sub
затем в первой кнопке загружаю из базы то, что там нужно:
- Код: Выделить всё
...
adoConstTypes.RecordSource = "SELECT * FROM ..."
adoConstTypes.Refresh
Set dcbConstraintType.DataSource = adoConstTypes
dcbConstraintType.DataField = "Constraint_Description"
Set dcbConstraintType.RowSource = adoConstTypes
dcbConstraintType.ListField = "Constraint_Description" ...
...
и во второй загружаю другой набор записей вместо первого:
- Код: Выделить всё
...
adoConstTypes.RecordSource = "SELECT * FROM ..."
adoConstTypes.Refresh
...
так вот. после нажатия на первую кнопку в DataCombo списке я вижу все, что там и должно быть в соответствии с запросом, но, чтобы я там не выбрал, на
- Код: Выделить всё
adoConstTypes.Recordset.Fields![ID]
получаю одно и тоже.
Когда нажимаю на вторую кнопку, то в списке опять вижу все, что там должно быть, но теперь даже выбрать ничего не могу
Что надо добавить или изменить тут?
Пробовал в DataCombo_Click вставлять ReFill и Refresh - не помогает
