|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.09.2013, 18:06 | #1 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Почему не работает код?
Всем привет. Написал код, но работает только при выборе "600". В чем ошибка?
Код:
Последний раз редактировалось Вадим12091965; 27.09.2013 в 18:10. |
27.09.2013, 18:35 | #2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Думаю, здесь
Код:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 27.09.2013 в 18:43. |
27.09.2013, 18:50 | #3 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Спасибо, что ответили. У меня просто море If TreeView1.SelectedItem . У опеделенного If TreeView1.SelectedItem должно выполняться именно условие Then Call v Else Call vv. Хотя, как вариант, можно попробовать ваше предложение.
Последний раз редактировалось Вадим12091965; 27.09.2013 в 19:14. |
27.09.2013, 19:16 | #4 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
У Вас, при таком коде, в Вашем
Цитата:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
27.09.2013, 19:20 | #5 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Читаем код
Если (If) значение равно 500 (TreeView1.SelectedItem = "500") выполнить макрос v (Then Call v) иначе, выполнить макрос vv (Else Call vv)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
28.09.2013, 16:12 | #6 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
Я все понял. У меня должно быть 4 варианта комбинаций текстбоксов и лейблов. Сделал 4 процедуры: Call v, Call vv, Call vvv, Call vvvv и для каждого TreeView1.SelectedItem вставил соответствующую процедуру. Сейчас все работает. Спасибо за помощь. Сначала я предполагал, что у меня будет 2 варианта комбинаций, поэтому и написал Then Call v Else Call vv для некоторых TreeView1.SelectedItem, а для других ничего писать не предполагал(для них по умолчанию должно было выполняться Call vv) - ничего не получилось. Сейчас все замечательно. Еще раз спасибо.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Почему не работает код? | иванлеон | БД в Delphi | 11 | 11.02.2013 14:49 |
Почему не работает код? | Asdprom | Общие вопросы C/C++ | 20 | 09.04.2012 12:27 |
Почему не работает код? | Bogusgl | Microsoft Office Excel | 20 | 10.08.2010 11:14 |
Почему не работает код? | Kashp | Общие вопросы Delphi | 3 | 09.08.2007 17:33 |