frb_noname
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
madmasles
Цитата: Код:
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
Global $aData[3][4] = _
[['Иванов', 'Ivanov', '+79034450911', 'Водолей'], _
['Петров', 'Petrov', '+79036780019', 'Рак'], _
['Сидоров', 'Sidorov', '+79031096788', 'Весы']]
Global $sDate
Dim $aInput[UBound($aData, 2)]
$hForm = GUICreate('MyGUI', 300, 161)
For $i = 0 To UBound($aInput) - 1
$aInput[$i] = GUICtrlCreateInput($aData[0][$i], 10, 10 + 30 * $i, 100, 19, $ES_READONLY)
Next
$nCombo = GUICtrlCreateCombo('', 10, 130, 280, 21, $CBS_DROPDOWNLIST)
For $i = 0 To UBound($aData) - 1
$sDate &= $aData[$i][0] & '|'
Next
GUICtrlSetData(-1, $sDate, $aData[0][0])
$sDate = ''
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $nCombo
$Index = GUICtrlSendMsg($nCombo, $CB_GETCURSEL, 0, 0)
For $i = 0 To 3
GUICtrlSetData($aInput[$i], $aData[$Index][$i])
Next
EndSwitch
WEnd |
Насколько я понял, combo обычный, не с двумя колонками, просто обращение ведется по индексу строки в элементе, а не по значению.
Отсюда у меня снова вопрос возник, т .к. у меня идет работа с БД.
Как сделать, чтобы в комбо поместить в КАЖДУЮ строку ДВА поля, одно из которых не отображается для пользователя ?
Это необходимо, чтобы потом из БД можно было выбрать связанную информацию по ID записи таблицы.
Как именно перекинуть данные из БД в комбо - в принципе понятно.
Не ясно как создать комбо с ДВУМЯ КОЛОНКАМИ ?
Есть ли такая возможность ?
Как приспособить Ваш пример к моей ситуации к сожалению пока не пойму... |
