Копирование и вставка строки с параметром

@DenProx · Регистрация: 09.10.2009

Студворк — интернет-сервис помощи студентам

Доброго времени суток. У меня такой вопрос: как можно выполнить копирование строки (или нескольких строк), программно, т.е. на форме сделать кнопку и с помощью нее скопировать, и также программно (через кнопку) вставить эту строку (строки) , и главное при Вставке, одному полю присвоить значение некоторой переменной...

shanemac51 · 17.02.2011, 12:06

Сообщение от DenProx

Доброго времени суток. У меня такой вопрос: как можно выполнить копирование строки (или нескольких строк), программно, т.е. на форме сделать кнопку и с помощью нее скопировать, и также программно (через кнопку) вставить эту строку (строки) , и главное при Вставке, одному полю присвоить значение некоторой переменной...

я восприняла это как копирование табличной части некой накладной в другую с присвоением нового номера накладной

насколько я права ......

@DenProx · 17.02.2011, 12:12 **[ТС]**

shanemac51, от части да) в общем суть такая:

Наформе лежит СубФорма(таблица) в которую по запросу выводятся некоторые данные с соотношением Один ко многим, т.е. выбираем запись, а в этой таблице отодражаются данные относящиеся к выбранной записи, но бывает нужно скопировать данные из таблицы в другой раздел, при обычном копировании и вставке записи вставляются, но т.к. ключ по которому групперуются данные отсутствуют, записи пропадают из субформы... но в таблице они есть, просто с пустым полем где должен быть ключ... для этого и нужно сделать программное Копирование\Вставку, чтобы этот ключ присваивался записям которые были добавлены

shanemac51 · 17.02.2011, 13:44

у меня было нечто похожее --копирование накладной в счет фактуру

-сообщи номер накладной
если найдена
----копирование головной строки из таб1 в раб11
----копирование табличной части накладной из таб2 в раб12
если не найдена
---сообщения и некое действие

-сообщи номер счет -фактуры
если найдена
---сообщения и некое действие
не найдено
---замена номера в раб11 и раб12 на новое значение
---вставка раб11 в счет1
---вставка раб12 в счет2

счетчики не использовались, ключом служили год и номер накл\счета

при использовании счетчика после вставки в счет1 определить значение счетчика и занести в раб12 до вставки в счет1

@DenProx · 17.02.2011, 14:03 **[ТС]**

а как это программно выглядит ?))

у меня например так должно быть:
ID| GroupID| Name| .....
-------------------------
[здесь строка с данными]

допустим выбрали раздел 1, в этой таблице отобразились записи у которых GroupID = 2, копируем дну или несколько записей, переходим в раздел 2, где GroupID уже = 4, вставляем... и как теперь изменить значение GroupID на 4, у тех записей которые вставили?

@Patch · 18.02.2011, 12:18

Сообщение от DenProx

допустим выбрали раздел 1, в этой таблице отобразились записи у которых GroupID = 2, копируем дну или несколько записей, переходим в раздел 2, где GroupID уже = 4, вставляем... и как теперь изменить значение GroupID на 4, у тех записей которые вставили?

а разве нельзя просто запросом Insert вставить?... или я что не понял?...
и что такое "раздел"? имеются ввиду разные значения поля на главной форме?

@DenProx · 18.02.2011, 12:29 **[ТС]**

Сообщение от Patch

или я что не понял?..

Раздел, имеется ввиду запись из какого либо контрола на форме, в моем случае это TreeView, в нем выбираем закую либо запись, в субформе (таблице) выводятся записи относящиеся к этой записи (разделу)... копируем, переходим в другой раздел, вставляем, вот тут и нужно чтобы вставленная запись стала принадлежать этому разделу

@Patch · 18.02.2011, 13:02

Сообщение от DenProx

копируем, переходим в другой раздел, вставляем, вот тут и нужно чтобы вставленная запись стала принадлежать этому разделу

вопрос исключительно в том, как это предполагается оформить с точки зрения дизайна.
две кнопки - скопировать и вставить; одна кнопка + выбор раздела куда копировать на той-же форме; или еще какой вариант.

как вам хочется, чтобы это выглядело?

@DenProx · 18.02.2011, 13:04 **[ТС]**

Patch, меня дизайн мало интересует, мне важна технология вставки, с заменой ключа в соответствии с разделом куда вставляем запись

@Patch · 18.02.2011, 13:21

Сообщение от DenProx

мне важна технология вставки, с заменой ключа в соответствии с разделом куда вставляем запись

повторяю: запрос на добавление Insert

SQL
1
2
3
INSERT INTO конечный_объект [(поле1[, поле2[, ...]])]
SELECT [источник.]поле1[, поле2[, ...]
FROM выражение_таблицы

в качестве поля, с именем GroupID ставим значение из управляющего контрола формы.
все.

@DenProx · 18.02.2011, 13:25 **[ТС]**

Patch, мне не нужно добавить запись в таблицу, грубо говоря мне ее нужно дубоировать с заменой ключа

@Patch · 18.02.2011, 13:38

Сообщение от DenProx

Patch, мне не нужно добавить запись в таблицу, грубо говоря мне ее нужно дубоировать с заменой ключа

дублирование - не есть вставка по вашему?

а что-же происходит с данными при дублировании, как вы думаете?
если в таблице появляется новая строка, значит это ВСТАВКА.
а как поменять ключ - я уже написал:

Сообщение от Patch

в качестве поля, с именем GroupID ставим значение из управляющего контрола формы.

ну, или можете поставить "4 as GroupID" и у вас все новые записи будут вставляться с GroupID = 4.
так понятнее?

@DenProx · 18.02.2011, 13:42 **[ТС]**

Patch, под вставкой я подразумеваю - Ctrl + V или RMB - Вставить

@Patch · 18.02.2011, 13:50

Сообщение от DenProx

Patch, под вставкой я подразумеваю - Ctrl + V или RMB - Вставить

DenProx, ты уж определись, ты хочешь кнопкой, или "программно", как в топике написано.

хотя, по большому счету - это все равно.
в Access можно определить макросы на кнопки, так что скопировать и вставить можно и так.

@DenProx · 18.02.2011, 13:57 **[ТС]**

Patch, просто ваш вариант координально отличается от того как я себе это представляю, и какие уже имеются наработки...

вот так делаю я:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Кнопка81_Click()
Dim rst As Recordset
 
Set rst = CurrentDb.OpenRecordset("SingleQuestionMode", dbOpenDynaset)
rst.MoveFirst
Do While Not rst.EOF
If rst.GroupID.Value <> temp Then
rst.GroupID.Value = temp
End If
rst.MoveNext
Loop
End Sub

смысл в том, что после вставки, я прохожусь цыклом по полю GroupID и проверяю значение, если оно не равно выбранному разделу, то заменить на это значение...

не работает этот код для нескольких записей... если вставить строку, и применить этот код, то значение измениться, если вставить группу строк, то измениться только та которая выделена...

мне сказали что нужно сделать клон... и подгонят пример ... вот щас жду...))

@Patch · 18.02.2011, 15:35

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
   Dim i As Long
   Dim F As Form
   Dim RS As Recordset
 
   ' Get the form and its recordset.
   Set F = Forms![Customers1]
   Set RS = F.RecordsetClone
 
   ' Move to the first record in the recordset.
   RS.MoveFirst
 
   ' Move to the first selected record.
   RS.Move F.SelTop - 1
 
   ' Enumerate the list of selected records presenting
   ' the CompanyName field in a message box.
   For i = 1 To F.SelHeight
 
     'здесь меняем ваш ID !!!
     RS.GroupID.Value = ...
 
     RS.MoveNext
   Next i

неудобный способ.

@DenProx · 21.02.2011, 07:55 **[ТС]**

Patch, вообще ни каких изменений не происходит...

@Patch · 21.02.2011, 09:05

Сообщение от DenProx

Patch, вообще ни каких изменений не происходит...

выложи код целиком.

@DenProx · 21.02.2011, 09:27 **[ТС]**

Всем спасибо! Я уже решил проблему)) все оказалось гараздо проще)

просто нужно было, при клике (выборе раздела), значению по умолчанию присвоить переменную:

Visual Basic
1
Me.fmSingleQuestionMode.Form!GroupID.DefaultValue = temp

а для субформы, на событие "До вставки": присвоить полю GroupID, значение по умолчанию)

Visual Basic
1
2
3
Private Sub Form_BeforeInsert(Cancel As Integer)
Me!GroupID = Me!GroupID.DefaultValue
End Sub

И все работает автоматически)

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109

	Копирование и вставка строки с параметром 17.02.2011, 11:42. Показов 8983. Ответов 18 Метки нет (Все метки) Доброго времени суток. У меня такой вопрос: как можно выполнить копирование строки (или нескольких строк), программно, т.е. на форме сделать кнопку и с помощью нее скопировать, и также программно (через кнопку) вставить эту строку (строки) , и главное при Вставке, одному полю присвоить значение некоторой переменной... 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	17.02.2011, 12:12 [ТС]
	shanemac51, от части да) в общем суть такая: Наформе лежит СубФорма(таблица) в которую по запросу выводятся некоторые данные с соотношением Один ко многим, т.е. выбираем запись, а в этой таблице отодражаются данные относящиеся к выбранной записи, но бывает нужно скопировать данные из таблицы в другой раздел, при обычном копировании и вставке записи вставляются, но т.к. ключ по которому групперуются данные отсутствуют, записи пропадают из субформы... но в таблице они есть, просто с пустым полем где должен быть ключ... для этого и нужно сделать программное Копирование\Вставку, чтобы этот ключ присваивался записям которые были добавлены 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,940 Записей в блоге: 4
	17.02.2011, 13:44
	у меня было нечто похожее --копирование накладной в счет фактуру -сообщи номер накладной если найдена ----копирование головной строки из таб1 в раб11 ----копирование табличной части накладной из таб2 в раб12 если не найдена ---сообщения и некое действие -сообщи номер счет -фактуры если найдена ---сообщения и некое действие не найдено ---замена номера в раб11 и раб12 на новое значение ---вставка раб11 в счет1 ---вставка раб12 в счет2 счетчики не использовались, ключом служили год и номер накл\счета при использовании счетчика после вставки в счет1 определить значение счетчика и занести в раб12 до вставки в счет1 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	17.02.2011, 14:03 [ТС]
	а как это программно выглядит ?)) у меня например так должно быть: ID\| GroupID\| Name\| ..... ------------------------- [здесь строка с данными] допустим выбрали раздел 1, в этой таблице отобразились записи у которых GroupID = 2, копируем дну или несколько записей, переходим в раздел 2, где GroupID уже = 4, вставляем... и как теперь изменить значение GroupID на 4, у тех записей которые вставили? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	18.02.2011, 13:04 [ТС]
	Patch, меня дизайн мало интересует, мне важна технология вставки, с заменой ключа в соответствии с разделом куда вставляем запись 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	18.02.2011, 13:25 [ТС]
	Patch, мне не нужно добавить запись в таблицу, грубо говоря мне ее нужно дубоировать с заменой ключа 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	18.02.2011, 13:42 [ТС]
	Patch, под вставкой я подразумеваю - Ctrl + V или RMB - Вставить 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	21.02.2011, 07:55 [ТС]
	Patch, вообще ни каких изменений не происходит... 0