|
|
|
Имена полей в динамический массив
|
|||
|---|---|---|---|
|
#18+
Привет! Проблема следующая. При заполнении Формы необходимо использовать различные таблички ( не из Access тоже!!!). Для удобства хочу создать дин. массив с именами полей. Т.е. имеем, скажем таблици: таб1 (пк1 число, т тект) таб2 (пк2 число, н число, т текст) ... Хотел бы получить процедуру ИМЯ(таб): такую, чтобы превращала Dim names() As String при ИМЯ(таб1) в names(1) = 'пк1', names(2) ='т', при ИМЯ(таб2) в names(1) = 'пк2', names(2) ='н', names(3) ='т' Помогите, написать такую процедурку! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.05.2004, 16:10 |
|
||
|
Имена полей в динамический массив
|
|||
|---|---|---|---|
|
#18+
set rst = me.recordsetclone for each fld in rst.fields msgbox fld.name next ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.05.2004, 16:14 |
|
||
|
Имена полей в динамический массив
|
|||
|---|---|---|---|
|
#18+
Если можно чуть-чуть подробнее,плииз! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.05.2004, 16:24 |
|
||
|
Имена полей в динамический массив
|
|||
|---|---|---|---|
|
#18+
создай на форме кнопку введи в событие нажатие код: dim rst 'объявление переменной set rst = me.recordsetclone 'после того как форма загрузилась такая команда назначит объекту ' rst копию набора записей формы for each fld in rst.fields 'циклически подставлять в переменную Fld из коллекции rst.fields msgbox fld.name 'выводить сообщение о названии поля next 'конец цикла set rst = nothing 'Очистка переменной ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.05.2004, 16:34 |
|
||
|
|

start [/forum/topic.php?fid=45&gotonew=1&tid=1674402]: |
0ms |
get settings: |
9ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
194ms |
get topic data: |
8ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
40ms |
get tp. blocked users: |
1ms |
| others: | 232ms |
| total: | 519ms |

| 0 / 0 |
