ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Формы
25 сообщений из 98, страница 1 из 4
  1  все
Формы
    #35008420
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
Вобщем помогите зделать одну не хитрую вещь
У меня есть на форме 2 комбобокса это поставщики первое из которого можно выбрать поставщика и товары также текст бокс в который вводится сумма , как при нажатии кнопки ввод данные занасились из комбобоксов и текст бокса в таблицу у которой есть поля поставшик и товары . как запрограммировать
...
Рейтинг: 0 / 0
13.12.2007, 17:22
| Ответить | Цитировать | Написать  
Формы
    #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
13.12.2007, 18:28
| Ответить | Цитировать | Написать  
Формы
    #35011710
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
счас у меня выходит ошибка типа File must be opened exclusively
Invalid subscript reference а дальше переменная у меня Massiv is not array
...
Рейтинг: 0 / 0
14.12.2007, 20:43
| Ответить | Цитировать | Написать  
Формы
    #35013200
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
Кто знает в чом ошибка
...
Рейтинг: 0 / 0
16.12.2007, 19:02
| Ответить | Цитировать | Написать  
Формы
    #35013275
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
Ну эта , типа телепаты на зимних каникулах.
Свой код выложи, тогда что-нибудь народ подскажет.
...
Рейтинг: 0 / 0
16.12.2007, 20: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:25
| Ответить | Цитировать | Написать  
Формы
    #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, 18:41
| Ответить | Цитировать | Написать  
Формы
    #35015796
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
А можно узнать как сделать код матча чтобы вставлялось каждый раз разное те уникальное
...
Рейтинг: 0 / 0
17.12.2007, 19:13
| Ответить | Цитировать | Написать  
Формы
    #35015818
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
Выполняй одну команду - либо INSERT, либо APPEND, а не две подряд.
...
Рейтинг: 0 / 0
17.12.2007, 19:22
| Ответить | Цитировать | Написать  
Формы
    #35015827
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
А чтобы код был уникальным попробуй сделать это поле автоинкрементальным.
...
Рейтинг: 0 / 0
17.12.2007, 19:26
| Ответить | Цитировать | Написать  
Формы
    #35015836
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
а что это такое я не в курсе
...
Рейтинг: 0 / 0
17.12.2007, 19:31
| Ответить | Цитировать | Написать  
Формы
    #35015935
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
Для установки Автоинкрементной характеристики Поля в Таблице:
Откройте Таблицу в соответствующем Дизайнере (Table Designer).

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

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

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

После выполнения всех действий нажмите кнопку OK.
...
Рейтинг: 0 / 0
17.12.2007, 20:06
| Ответить | Цитировать | Написать  
Формы
    #35015995
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
А у меня тип только просто интежер
...
Рейтинг: 0 / 0
17.12.2007, 20:36
| Ответить | Цитировать | Написать  
Формы
    #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, 20:49
| Ответить | Цитировать | Написать  
Формы
    #35016094
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
а почему он всеравно не знает команду соперинк пишет ис нот вариабле
...
Рейтинг: 0 / 0
17.12.2007, 21:25
| Ответить | Цитировать | Написать  
Формы
    #35016107
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
те у меня в дата еверомерт определена ещё таблица команда у неё есть переменные код команды и название команды , она нужна для создания массива и как теперь определить переменные
...
Рейтинг: 0 / 0
17.12.2007, 21:35
| Ответить | Цитировать | Написать  
Формы
    #35016129
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
А зачем массив? Не проще ли выгребать данные из самой таблицы ?
...
Рейтинг: 0 / 0
17.12.2007, 21:54
| Ответить | Цитировать | Написать  
Формы
    #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, 21:57
| Ответить | Цитировать | Написать  
Формы
    #35016158
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
и вобщем теперь мне нужно чтобы название фк как то тоже определить и код фк из той таблицы а то он пишет ис нот ваиабле
...
Рейтинг: 0 / 0
17.12.2007, 22:13
| Ответить | Цитировать | Написать  
Формы
    #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, 08:27
| Ответить | Цитировать | Написать  
Формы
    #35016761
FEAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FEAS
Гость
Ага работает, но ему теперь не нравится KOD_FK Uniqueness of index is KOD_FK violated

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

STR - это преобразование из типа N в тип C.
...
Рейтинг: 0 / 0
18.12.2007, 11:24
| Ответить | Цитировать | Написать  
Формы
    #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
18.12.2007, 11:34
| Ответить | Цитировать | Написать  
25 сообщений из 98, страница 1 из 4
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35008700&tid=1588340]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 68ms
get tp. blocked users:
 1ms
others: 197ms
total:  353ms
созд. / загр.: 353ms
x
x
Закрыть


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