Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Формы / 25 сообщений из 98, страница 1 из 4
  1  все
13.12.2007, 17:22
    #35008420
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Вобщем помогите зделать одну не хитрую вещь
У меня есть на форме 2 комбобокса это поставщики первое из которого можно выбрать поставщика и товары также текст бокс в который вводится сумма , как при нажатии кнопки ввод данные занасились из комбобоксов и текст бокса в таблицу у которой есть поля поставшик и товары . как запрограммировать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.12.2007, 18:28
    #35008700
BMJ
BMJ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
1. INSERT INTO tabla (PolePostav,PoleTovar,PoleSumma) Values (THISFORM.ComboPostav.Value,THISFORM.ComboTovar.Value,THISFORM.PoleSumma.Value)

2. sele tabla
append blank
REPL PolePostav with THISFORM.ComboPostav.Value,;
PoleTovar WITH THISFORM.ComboTovar.Value,;
PoleSumma) WITH THISFORM.PoleSumma.Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2007, 20:43
    #35011710
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
счас у меня выходит ошибка типа File must be opened exclusively
Invalid subscript reference а дальше переменная у меня Massiv is not array
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2007, 19:02
    #35013200
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Кто знает в чом ошибка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2007, 20:25
    #35013275
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Ну эта , типа телепаты на зимних каникулах.
Свой код выложи, тогда что-нибудь народ подскажет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 18:25
    #35015715
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Вобщем вот такая штука в кнопку ввод я пишу вот это


INSERT INTO match (kom_hozaev,kom_sopern,resultat) Values (THISFORM.Combo1.Value,THISFORM.Combo2.Value,THISFORM.Text1.Value)

sele match
append blank
REPL kom_hozaev with THISFORM.Combo1.Value,;
kom_sopern WITH THISFORM.Combo2.Value,;
resultat WITH THISFORM.Text1.Value

А ошибка в приложенном файле
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 18:41
    #35015743
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
FEASВобщем вот такая штука в кнопку ввод я пишу вот это


INSERT INTO match (kom_hozaev,kom_sopern,resultat) Values (THISFORM.Combo1.Value,THISFORM.Combo2.Value,THISFORM.Text1.Value)

sele match
append blank
REPL kom_hozaev with THISFORM.Combo1.Value,;
kom_sopern WITH THISFORM.Combo2.Value,;
resultat WITH THISFORM.Text1.Value

А ошибка в приложенном файле

Первая ошибка re S ultat и re Z ultat это разные названия полей.

Вторая из-за того что у тебя индекс по KOD_MATCHA без повторений, ругается на то что ты пытаешься вставить в KOD_MATCHA значение которое уже есть (вероятно пустую строку или 0).

PS Твой код это добавление строки в match двумя разными способами, т.е. ты два раза добавил одно и тоже
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 19:13
    #35015796
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
А можно узнать как сделать код матча чтобы вставлялось каждый раз разное те уникальное
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 19:22
    #35015818
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Выполняй одну команду - либо INSERT, либо APPEND, а не две подряд.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 19:26
    #35015827
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
А чтобы код был уникальным попробуй сделать это поле автоинкрементальным.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 19:31
    #35015836
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
а что это такое я не в курсе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 20:06
    #35015935
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Для установки Автоинкрементной характеристики Поля в Таблице:
Откройте Таблицу в соответствующем Дизайнере (Table Designer).

В соответствующей закладке Fields, выберите требуемое Поле.

В комбинированном Списке Type, установите тип Поля: Integer (AutoInc).

В соответствующей области Дизайнера AutoIncrement, введите начальное значение Автоинкрементного Поля Next Value, а также определите величину Приращения в области Step.

После выполнения всех действий нажмите кнопку OK.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 20:36
    #35015995
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
А у меня тип только просто интежер
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 20:49
    #35016020
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
VFP6 ? Тогда наверное автоинкремента не было.

Тогда можно попробовать забивать это поле номерами записей. Решение корявое и в рабочем проекте не приемлемое, но для курсача сойдет. Типа так:
Код: plaintext
1.
2.
3.
4.
append blank
REPL kom_hozaev with THISFORM.Combo1.Value,;
kom_sopern WITH THISFORM.Combo2.Value,;
resultat WITH THISFORM.Text1.Value,;
KOD_MATCHA WITH RECNO()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 21:25
    #35016094
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
а почему он всеравно не знает команду соперинк пишет ис нот вариабле
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 21:35
    #35016107
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
те у меня в дата еверомерт определена ещё таблица команда у неё есть переменные код команды и название команды , она нужна для создания массива и как теперь определить переменные
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 21:54
    #35016129
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
А зачем массив? Не проще ли выгребать данные из самой таблицы ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 21:57
    #35016132
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
index on nazvanie_fk tag un1 unique
count to m_size
public dimension massiv (m_size,1)
copy to array massiv field nazvanie_fk
close index

я так вот делал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 22:13
    #35016158
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
и вобщем теперь мне нужно чтобы название фк как то тоже определить и код фк из той таблицы а то он пишет ис нот ваиабле
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2007, 08:27
    #35016457
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Забей свойства своих контролов таким образом и сможешь получать в свойстве Value код команды. Кавычки для работы в визуальном конструкторе не нужны.

combo1.RowSourceType = 2
combo1.RowSourceType = 'komanda.nazvanie_fk,kod_fk'
combo1.BoundTo = .T.
combo1.BoundColumn = 2

combo2.RowSourceType = 2
combo2.RowSourceType = 'komanda.nazvanie_fk,kod_fk'
combo2.BoundTo = .T.
combo2.BoundColumn = 2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2007, 10:37
    #35016761
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Ага работает, но ему теперь не нравится KOD_FK Uniqueness of index is KOD_FK violated

Я также хотел сделать KOD_FK WITH RECNO() но не выходит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2007, 11:01
    #35016853
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Я также хотел сделать KOD_FK WITH RECNO() но не выходит

"Кто на ком стоял?" (С) Собачье сердце

Если хочешь заполнить kod_fk в таблице команд, тогда

sele komanda
REPLACE ALL kod_fk WITH RECNO()

если kod_fk поле типа N, ну или

REPLACE ALL kod_fk WITH STR(RECNO()) && если тип поля C

Это однократная операция- просто чтобы зарядить уже готовую таблицу команд.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2007, 11:13
    #35016898
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
KOD_MATCHA WITH STR(RECNO())
а так правильно? или не STR
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2007, 11:24
    #35016941
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Читай help. На русском языке можно поискать здесь
http://]http://forum.foxclub.ru/read.php?33,296176

STR - это преобразование из типа N в тип C.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2007, 11:34
    #35016976
FEAS
FEAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формы
Да понял это , код фк работает а вот код матча нет

sele match
append blank
REPL kom_hozaev with THISFORM.Combo1.Value,;
kom_sopern WITH THISFORM.Combo2.Value,;
rezultat WITH THISFORM.Text1.Value,;
KOD_MATCHA WITH RECNO()

sele komanda

REPLACE ALL kod_fk WITH RECNO()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Формы / 25 сообщений из 98, страница 1 из 4
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 411ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1588340]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 254ms
total:  411ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]