AccessXPADP+MSSQL2K

Есть справочник ID int,Name varchar(50)

Есть запрос для ленточной формы, выводящий Name
Запрос приходится оптимизировать по размеру протаскиваемых через сеть данных.
Пошел таким путем:
Засасываю весь справочник в рекордсет при запуске программы.
Вместо Name в запросе передаю ID .
На форме вместо текстового поля делаю поле со списком
и присоеденяю к нему заранее закачанный рекордсет.

Все отлично размер передаваемых данных значительно сокращается ,
но для достижения того же , что и с текстовым полем вида надо избавится от
кнопки развертывания в углу поля со списком.
Наехал на нее соседним полем , но когда фокус переходит
в поле кнопка всплывает наверх.
Как от этого избавится?

>Делаешь невидимое поле со списком, и текстбокс
Так я делал , но тогда получается вычисляемое поле ,
и пользователи не могут по нему делать фильтры и сортировку,
а без этого им никак.

2Geo
У меня же ADP-ник
Чтоб локальную таблицу завести надо отдельный конект заводить и таскать за собой MDB
Да еще потом геморой с гетерогенными запросами.
В общем с рекордсетом гораздо проще.

2Senin Viktor
Тут оптимизация еще немного дальше.
У меня получается слишком большой объем данных при передаче подготовленных на сервере значений.
Форма только для просмотра.
Поэтому я один раз закачиваю справочник а вовсех остальных формах стараюсь передавать маленький ID вместо большого Name
и расшифровывать его с помощью готового рекордсета на клиенте.

PS Геморой из-за медленного канала(2Мб/с) c другим офисом.
В принципе все работает , но некоторые формы тормозят
Во их таким образом получилось подстегнуть.
Но хочется чтоб внешне все осталось по прежнему.

2Лох Позорный
Все правильно понял.

Ну так что насчет совета ?

Чтобы и сортировать можно было, и кнопка не маячила.

Пока в голову приходит , только вручную наколбасить рекордсет для формы.
Но это медленно на вялых клиентах работать будет.

>Как еще один вариант (глюпый): вставлять в поле со списком в момент загрузки формы СписокЗначений всего сохраненого набора
Я так и делаю.
Private Sub Form_Open(Cancel As Integer)

Set cboTech_ID.Recordset = rstCboSourse(7, Me)
..........................................................................

Function rstCboSourse(bytType As Byte, frm As Form, Optional blnRequery As Boolean = False) As ADODB.Recordset
'Значения bytType
'1-Все работники для не редактируемых документов
'2-Неуволенные работники для редактирумых документов
'3-Все КА для не редактируемых документов
'4-КА клиент для редактируемых документов
'5-Выбор валюты
'6-Выбор курса для не редактируемых документов
'7-Вся техника для не редактируемых документов
'8-Все агрегаты для не редактируемых документов
'9-Адреса


Static rstSourse(9) As ADODB.Recordset

If rstSourse(bytType) Is Nothing Or blnRequery Then
If rstSourse(bytType) Is Nothing Then
Set rstSourse(bytType) = New ADODB.Recordset
Else
rstSourse(bytType).Close
Set rstSourse(bytType) = Nothing
End If
Select Case bytType
Case 1
Set rstSourse(bytType) = CNN.Execute("dbo.RBT_AllVibor @dtData_prm='',@bytStatus_prm=0")
' Case 2
' Set rstSourse(bytType) = cnn.Execute("RBT_Vibor @dtData_prm='" & frm!dtData_prm & "',@bytStatus_prm=1") 'bytStatus_prm cboDp_ID_B dtData_prm
Case 3
Set rstSourse(bytType) = CNN.Execute("dbo.KA_Vibor @bytStatus_prm=0")
' Case 4
' rstKASourse(bytType) = cnn.Execute("exec dbo.KA_Vibor 2," & bytStatus_prm & "," & cboDp_ID_B) 'Плательщик клиент
Case 5
Set rstSourse(bytType) = CNN.Execute("dbo.Vlt_Vibor")
Case 6
Set rstSourse(bytType) = CNN.Execute("dbo.KV_Vibor @bytStatus_prm=0,@Vlt_ID=0,@dtData_prm=''")
Case 7
Set rstSourse(bytType) = CNN.Execute("dbo.Tech_Vibor @bytStatus_prm=0,@bytFir_ID_prm=0")
Case 8
Set rstSourse(bytType) = CNN.Execute("dbo.AG_Vibor @bytStatus_prm=0,@Tech_ID_prm=0")
Case 9
Set rstSourse(bytType) = CNN.Execute("dbo.ADR_Vibor")
End Select
End If
Set rstCboSourse = rstSourse(bytType)
End Function



Все отлично, куча форм расслабилась насчет заполнения списков ,
но при замене текстовых полей на ID+Поле со списком + рекордсет
эстетическая заковыка.

2fedd
Читай первый пост.
>Проверялось или только предположение?
Предположение.
Просто чтоб проверить , надо много писать .
А я ленивый :)
Гдебы активикс достать чтоб как поле со списком и без стрелочки.
или накрыть ее так чтоб не всплывала.
или размер этой стрелочки сделать чтоба невидима стала.

> ActivX ComboBox из КоммонКонтролс
Вот это уже интересно.
Если получится прям даже на другой бок не надо переворачиватся.

Поставил Microsoft Forms 2.0 ComboBox

Там действительно есть свойство позволяющее избавится от кнопки.
Но там нет свойства recordset
и выглядит он по другому (выделяется на фоне других контролов)

или я не там ищу?

Как к нему рекордсет присобачить?
И еще ругатся стала , что форма содержащая активикс не может быть по умолчанию ленточной.
И на рабочем столе с двумя мониторами глючит(но это я переживу).

Да придется видимо ручками рекордсет для формы сделать
Авось не так уж медленно получится.