Vb и SQL

[baranich]

Код: Выделить всё


выборкаИзБазыДанных.Source = "EXEC СписокСотрудниковПодразделения " + sНомерПодразделения
    выборкаИзБазыДанных.Open
    indexID = 0
    While Not выборкаИзБазыДанных.EOF
        СтрокаЗаявки = ""
        СтрокаЗаявки = СтрокаЗаявки + выборкаИзБазыДанных.Fields(1)
        IDСотрудника(indexID) = выборкаИзБазыДанных.Fields(0)
        выборкаИзБазыДанных.MoveNext
        Combo2.AddItem СтрокаЗаявки
        indexID = indexID + 1
    Wend
     выборкаИзБазыДанных.Close


Вопрос такой у меня происходит выборка из таблицы в СтрокаЗаявки сохраняется ФИО, а в IDСотрудника(indexID) его номер в таблице, как выбирая из Combo2 сотрудника, мне определить его номер, прога мне выдает первый номер в массиве, а надо номер определенного сотрудника?

[GSerg]

Ужас какой...
Такой вопрос у меня - удобно каждый раз при наборе sНомерПодразделения переключаться с английского на русский и обратно?

...
Combo2.AddItem СтрокаЗаявки
Combo2.ItemData (Combo2.NewIndex) = выборкаИзБазыДанных.Fields(0)
...
private sub combo2_click()
msgbox combo2.itemdata(combo2.listindex)
end sub

[baranich]

спасибо, а переключаться с английского на русский - дело привычки

[baranich]

Combo2.AddItem СтрокаЗаявки
Combo2.ItemData (Combo2.NewIndex) = выборкаИзБазыДанных.Fields(0) - в данном случае NewIndex=0
...
private sub combo2_click()
msgbox combo2.itemdata(combo2.listindex) - а здесь listindex =-1 и поэтому вылезает ошибка, как изменить listindex
end sub

[GSerg]

private sub combo2_click()
if combo2.listindex <> -1 then msgbox combo2.itemdata(combo2.listindex)
end sub

[baranich]

подскажите как удалить из combobox.list, один из элементов?

[GSerg]

.remove

[baranich]

так .remove, он мне очистит весь список, а надо только один элемент, как сделать?

[GSerg]

removeitem

[baranich]

например у меня список
текст1
текст2
........
текст n

Я могу выбрать из списка и текст 1 и текст n-2 и как мне узнать индекс этого элемента, ведь для removeitem нужен именно индекс элемента. Как же мне узнать индекс элемента

[baranich]

т.е когда я выбрала элемент и нажала на кнопку, то этот элемент должен удалиться из списка

[baranich]

вопрос отменяется, уже разобралась, всем спасибо за помощь

[Andrey Fedorov]

спасибо, а переключаться с английского на русский - дело привычки

Верно. Ничуть не сложней чем заглавные буквы ставить - одно нажатие клавиши. Зато понятней - и, по крайней мере, это не повод чтобы отказываться от использования русских букв в программах для наших контор.