Бекжан Мукатов
Посетитель
Всего сообщений: 17
Дата регистрации: 06.01.2010
|
Создано:
01.09.2010 14:09:27
|
Здравствуйте!
Подскажите пожалуйста как добавить столбец в таблицу (например столбец "numerac" в таблице "vetv". Тип-целый).
|
Михаил Реутов
Постоянный посетитель
Всего сообщений: 224
Дата регистрации: 21.11.2007
|
Создано:
01.09.2010 14:46:13
|
| Код |
|---|
Rastr.Tables("vetv").Cols.Add "numerac", 0
|
|
Николай Некрасов
Постоянный посетитель
Всего сообщений: 194
Дата регистрации: 23.04.2007
|
Создано:
08.09.2010 12:39:46
|
Добавление с использованием меню:
Файл-Настройки программы-Данные- в поле Таблица выбрать vetv-нажать значок "Добавить столбцы таблицы". В открывшемся окне "ВВод нового столбца" заполнить "Имя столбца" и "Тип" - ОК.
Далее, желательно, заполнить появившуюся строку (последняя строка) и нажать значок "Сохранить шаблон". Можно поставить "галочку" в окне "сохранять данные с шаблоном" - Закрыть.
Аналогично можно добавлять любые столбцы в любые таблицы.
|
Николай Некрасов
Постоянный посетитель
Всего сообщений: 194
Дата регистрации: 23.04.2007
|
Создано:
08.09.2010 12:41:25
|
Извините, не посмотрел на дату вопроса.
|
Иван Почечуев
Постоянный посетитель
Всего сообщений: 175
Дата регистрации: 24.06.2010
|
Создано:
16.12.2013 11:42:48
|
Господа подскажите как проверить наличие столбца в таблице. Заранее благодарен.
|
Михаил Реутов
Постоянный посетитель
Всего сообщений: 224
Дата регистрации: 21.11.2007
|
Создано:
16.12.2013 11:52:16
|
| Цитата |
|---|
| Господа подскажите как проверить наличие столбца в таблице. Заранее благодарен. |
Перебором всей коллекции:
| Код |
|---|
Set cls = Rastr.Tables("node").Cols
For i = 0 to cls.Count-1
If cls(i).Name = "sta" Then MsgBox "Имеется столбец sta"
Next
|
|
Вадим
Гость
|
Создано:
16.12.2013 12:12:09
|
Лучше так
| Код |
|---|
| If ucase(cls(i).Name) = ucase("sta") Then |
Так как по непонятной причине названия столбов начинаются то с большой, то с маленькой, а обращаться надо строго по названию.. это приводит к недоразумениям, особенно в таблице генераторов
|
Евгений Машалов
Администратор
Всего сообщений: 1059
Дата регистрации: 23.04.2007
|
Создано:
16.12.2013 12:58:43
|
| Код |
|---|
| Rastr.Printp Rastr.Tables("node").Cols.Find("sta") |
С заглавной или со строчной называется в зависимости от школы создавшего: NIX vs MS
|
Михаил Реутов
Постоянный посетитель
Всего сообщений: 224
Дата регистрации: 21.11.2007
|
Создано:
17.12.2013 08:27:14
|
Еще способ проверить наличие столбца в таблице:
| Код |
|---|
flag_col = false
On Error Resume Next
flag_col = Cbool(Len(Rastr.Tables("node").Cols("ny").Name))
msgbox flag_col
|
|
Владимир Неуймин
Администратор
Всего сообщений: 268
Дата регистрации: 13.03.2007
|
Создано:
17.12.2013 12:43:46
|
можно и так
| Код |
|---|
Set tta=Rastr.Tables(tabl)
Set cl=tta.Cols
j=cl.Find(name)
if j=-1 then Set newct=cl.Add (name,tip) else Set newct=cl(j)
|
|
