Слово
«list3»впервые сказано пользователем
4udo 09.12.2007 в 16:44,
и с тех пор употреблялось
12 раз.
Сообщения со словом
«list3»
Запрос выполнился за
0.0198 сек.
- 09.12.2007, 19:21. la_fou в теме
«VB 6.0»
... не выделен то выдается сообщение ошибка else иначе list3 additem list1 list list1 listindex list2 list...
- 09.12.2007, 16:54. asterix20 в теме
«VB 6.0»
... объекты добавления vbokonly ошибка вывод ошибки else list3 additem list1 list list1 listindex list2 list list2 listindex добавление в лист3 for i1 1 to n для и т п if perechen i1 1 list1 list list1 listindex and perechen i1 2 list2 list list2 listindex then exit sub проверка условия и выполнение его next i1 n n 1 perechen n 1 list1 list list1 listindex perechen n 2 list2 list list2 listindex end if end sub private sub command5 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выделить фермерское хозяйство и марку машины нажать кнопку чтобы сформировать список заказов на статус баре пишется что в кавычках end sub private sub command6 click list3 clear тут все понятно for i1 1 to n list3 additem perechen i1 1 perechen i1 2 добавление в лист 3 next i1 end sub private sub command6 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит сформированный список всех заказов на статус баре пишется что в кавычках end sub private sub command7 click list3 clear end sub private sub command7 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке на статус баре пишется что в кавычках end sub дальше все объяснения однотипны private sub command8 click for i1 1 to list2 listcount auto i1 1 list2 list i1 1 auto i1 2 0 next i1 for i1 1 to n for j1 1 to list2 listcount if auto j1 1 perechen i1 2 then auto j1 2 str val auto j1 2 1 next j1 next i1 for i1 1 to list2 listcount 1 for j1 i1 1 to list2 listcount if val auto i1 2 val auto j1 2 then tmp auto i1 2 auto i1 2 auto j1 2 auto j1 2 tmp end if next j1 next i1 list3 clear for i1 1 to list2 listcount if auto i1 2 0 then list3 additem auto i1 1 auto i1 2 next i1 end sub private...
- 09.12.2007, 16:44. 4udo в теме
«VB 6.0»
... не выделены объекты добавления vbokonly ошибка else list3 additem list1 list list1 listindex list2 list list2 listindex for i1 1 to n if perechen i1 1 list1 list list1 listindex and perechen i1 2 list2 list list2 listindex then exit sub next i1 n n 1 perechen n 1 list1 list list1 listindex perechen n 2 list2 list list2 listindex end if end sub private sub command5 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выделить фермерское хозяйство и марку машины нажать кнопку чтобы сформировать список заказов end sub private sub command6 click list3 clear for i1 1 to n list3 additem perechen i1 1 perechen i1 2 next i1 end sub private sub command6 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит сформированный список всех заказов end sub private sub command7 click list3 clear end sub private sub command7 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command8 click for i1 1 to list2 listcount auto i1 1 list2 list i1 1 auto i1 2 0 next i1 for i1 1 to n for j1 1 to list2 listcount if auto j1 1 perechen i1 2 then auto j1 2 str val auto j1 2 1 next j1 next i1 for i1 1 to list2 listcount 1 for j1 i1 1 to list2 listcount if val auto i1 2 val auto j1 2 then tmp auto i1 2 auto i1 2 auto j1 2 auto j1 2 tmp end if next j1 next i1 list3 clear for i1 1 to list2 listcount if auto i1 2 0 then list3 additem auto i1 1 auto i1 2 next i1 end sub private...