Как перемещать запись вверх или вниз?

[гудвин]

Есть форма. На ней есть поле ( аб|). Там ( в поле) расположены записи (имена контрагентов). Например:

Вася
Петя
Маша
......
Коля

Эти имена хранятся в таблице (столбцы-поля num - нумерация от 1, kontragent - имя и nrec (берется по запросу, но это наверно не важно...). Дак вопрос - как перемещать эти записи вверх с помощью кнопки, расположенной рядом с полем (просто кнопочка со стрелкой вверх). Какую процедуру написАть? Как? В смысле, выделил запись в поле, нажал на кнопочку, запись переместилась на один уровень вверх - маша стала выше пети, но ниже васи. Че делать та?

ЗЫ: привет Челябе

[GSerg]

Гы...
Ты делаешь запрос, а многострочный результат выводишь в текстбокс? Оригинально!
Может, лучше grid? Или listbox хотя бы?

[гудвин]

...ББлллиннн....
Это и есть список, млин. Чего я написал, что это просто поле??!!! Науке это неизвестно....
В общем, поправка - слово "поле" меняется на слово "список".
Дык че делать та??

[GSerg]

Дык эта...
Сначала remove, а потом add "text", newpos

[гудвин]

а можна пападробней? Я ж новичкоф, чайник и т.д. Чего ремув, куда newpos?? C Примером бы....

[GSerg]

dim s as string

s=listbox1.list(5)
listbox1.removeitem 5
listbox1.additem s, 6

[гудвин]

М-м-м-м.....а в VBA??

[GSerg]

Мммм... а разница?

[гудвин]

Почти никакой. Тока ни removeitem, ни additem нету после точки в VBA. Не выскакивают они для Listbox1. Тока не надо думать што я не подставил свое имя списка заместо "listbox1". Т.е.

ListKontrItog.removeitem 5

не получается.

[GSerg]

Странный листбокс какой-то...
Как же записи в него добавлять-то?

[A.A.Z.]

Странно, у меня все есть...

Как бы то ни было,

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

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_ADDSTRING As Long = &H180
Private Const LB_DELETESTRING As Long = &H182
Private Const LB_INSERTSTRING As Long = &H181

Sub ListAddItem(Str$)
SendMessage ListBox1.hwnd, LB_ADDSTRING, 0&, ByVal Str
End Sub

Sub ListInsertItem(Str$, Index&)
SendMessage ListBox1.hwnd, LB_INSERTSTRING, Index, ByVal Str
End Sub

Sub ListDeleteItem(Index&)
SendMessage ListBox1.hwnd, LB_DELETESTRING, Index, 0&
End Sub

[гудвин]

AAZ, ты даешь!!! Ты бы мне ещё предложил отдельную прогу создать для простого перемещения выделенного имени в списке. Проще то ничего нет??? Яж вопрос подробно задал. Может ченить с номерами сделать?? Поле Num я имею ввиду.....

И вообще, таблица выглядит так:

num nrec kontragent

1 4546 Петя
2 4587 Вася
3 8852 Маша
...
99 2178 Коля

Дак мене нада Колю переместить вверх например на восемь позиций, а машу вниз на пять позиций. Чего говорю делать та????

[GSerg]

А листбокс ли это?

[гудвин]

Это он. Список, листбокс, listbox. Я говорил, что таблица быглядит так, а не листбокс. В листбоксе тока контрагенты видны. А я описал в последнем сообщении источник строк.

[Konst_One]

Меняй тогда поле Num запросом SQL для своей Маши и рефрешь заново список

[A.A.Z.]

AAZ, ты даешь!!! Ты бы мне ещё предложил отдельную прогу создать для простого перемещения выделенного имени в списке.

Ты знаешь, бывает гораздо хуже...
Иногда на ТАКИХ МЕЛОЧАХ приходиться надолго останавливаться, просто диву даешься!