| |
|
|
| |
Do While Not rst.EOF ' заполняем наименованиями список
Me!Combo_DROUP.AddItem rst("GROUP_NAME") ' наименование группы
Me!Combo_DROUP.AddItem rst("ID_GROUP") ' номер группы
rst.MoveNext
Loop
|
А как в две колонки(в два столбца) заполнялось что бы??? 
если бы был метод .AddListItem | |
| |
| |
| |
|
|
| | попробуй так
...
Combo_DROUP.AddItem rst("GROUP_NAME")
Combo_DROUP.ItemData(Combo_DROUP.NewIndex) = rst("ID_GROUP")
|
| |
| |
| |
| |
|
|
| | или так
Dim cmb As Access.ComboBox
Dim rs As New ADODB.Recordset
Dim strString As String
Dim lngN As Long
Dim cntC As Long
Const ITEM_DELIMITER = ";"
strString = vbNullString
lngN = rs.Fields.Count
Set cmb = Me.Combo_DROUP
cmb.RowSourceType = "Value List"
cmb.ColumnCount = lngN
Do Until rs.EOF
For cntC = 0 To lngN - 1
strString = strString & CStr(Nz(rs.Fields(cntC)), vbNullString) & ITEM_DELIMITER
Next cntC
rs.MoveNext
Loop
lngN = Len(strString)
If lngN > 1 Then
strString = Left(strString, lngN - 1)
cmb.RowSource = strString
Else
cmb.RowSource = vbNullString
End If
|
| |
| |
| |
| |
|
|
| | 1. А почему-бы просто не присвоить значение RowSource - строку SQL или имя сохраненного запроса (для ТипИсточникаСтрок=Таблица/Запрос)?
2. AddItem поштучно будет довольно медленно. Быстрее собрать одну строку и присвоить ее в качестве RowSource.
(для ТипИсточникаСтрок=Список значений) | |
| |
| |
| |
|
|
| | а также
3. Set cmb.recordset = rs  | |
| |
| |
| |
|
|
| | Спасибо!!!!
пробываю 
может не существенно, но я в VB6 пытаюсь... | |
| |
| |
| |
|
|
| |
может не существенно, но я в VB6 пытаюсь...
|
существенно, потому и указал тип
Dim cmb As Access.ComboBox
|
| |
| |
| |
| |
|
|
| | Значит - если access на машине не установлен - тогда........ничё не выйдет? | |
| |
| |
| |
|
|
| | нифига никакой разделитель не создаёт колонок
ни ; ни Tab ни , | |
| |
| |
| |
|
|
| | Не знаю, как в VB, но в Access, чтобы было две колонки, надо настроить элемент управления соответствующим образом. А в методе AddItem в качестве первого аргумента передаётся строка, в которой с помощью разделителя отделяются части, относящиеся к разным столбцам. По-моему, так. Т.е. в Вашем случае надо было бы написать как-то так:
Me!Combo_DROUP.AddItem rst("GROUP_NAME") & ";" & rst("ID_GROUP")
|
| |
| |
| |
| |
 66 Кб. |
|
| | Да ты прав в Access проще - можнj ваще конструктором создать и подправить ...
А тут даже ширину колонок негде указать........ | |
| |
| |
