Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
03.01.2002, 20:05
|
|||
|---|---|---|---|
|
|||
DTS |
|||
|
#18+
Ya ispolsyu code nishe v DTS pakage. Po kakoito prichine na deklarazii peremennuh ya polychau oshibky. Pochemy? ---------------------------------------- Dim K As Integer Dim T As String K = 0 T = DTSSourse("Test") If Len(T) < 10 Then For K = 1 To 10 If Len(T) = 10 Then Exit For End If T = "0" & T Next K DTSDestination("Test")= T End If ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.01.2002, 22:46
|
|||
|---|---|---|---|
|
|||
DTS |
|||
|
#18+
Была ошибка синтаксиса VB для Dim и Next. Вот так должно работать. --------------------------- Dim K Dim T K = 0 T = DTSSourse("Test") If Len(T) < 10 Then For K = 1 To 10 If Len(T) = 10 Then Exit For End If T = "0" & T Next DTSDestination("Test")= T End If ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=46&tablet=1&tid=1824430]: |
0ms |
get settings: |
11ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
89ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
36ms |
get tp. blocked users: |
2ms |
| others: | 256ms |
| total: | 437ms |

| 0 / 0 |
