Копирование групп ячеек столбца в буфер обмена

← →
krobs © (2006-05-14 18:37) [0]

Скачал из Инета библиотеку EhLib и заменил DBGrid1 на DBGridEh1 - появилось больше возможностей - классно!
Выставил свойство: Options.dgMultiSelect
А вот как теперь сделать копирование групп ячеек столбца, в буфер обмена данными (как в Excel), что бы при этом я мог эти данные копировать обратно в Грид?
Товарищи, плиз, подскажите!!!!!!!!

Проще говоря мне нужно повторяемые в базе группы записей (в столбцах), дабы не переписывать их - копировать!

Заранее благодарю за ответ!

← →
alexeis © (2006-05-15 08:31) [1]

тама есть demos. посмотри в нем.
вообще все работает через bookmarks.
Навскидку:
var BStart,BEnd : TBookmarkStr;
....
BEnd := dbgDisProv.Selection.Rect.BottomRow;
dm.TableSource.GotoBookmark(Tbookmark(BStart));
while True do
begin
dm.TableDest.Edit;
dm.TableDest.FieldByName("field1").AsFloat := dm.TableSource.FieldByName("field1").AsFloat
end;
dm.TableDest.Post;
BStart:=PChar(dm.TableSource.GetBookmark);
if TIBCustomDataSet(dm.TableSource).CompareBookmarks(Pointer(BEnd),Pointer(BStart)) = 0 then
break;
dm.dsDisProv.Next;
end;

← →
alexeis © (2006-05-15 08:48) [2]

Блин, выдрал со своей проги. Небольшое изменение:
тама есть demos. посмотри в нем.
вообще все работает через bookmarks.
Навскидку:
var BStart,BEnd : TBookmarkStr;
....
BStart := dbgDisProv.Selection.Rect.TopRow;
BEnd := dbgDisProv.Selection.Rect.BottomRow;
dm.TableSource.GotoBookmark(Tbookmark(BStart));
while True do
begin
dm.TableDest.Edit;
dm.TableDest.FieldByName("field1").AsFloat := dm.TableSource.FieldByName("field1").AsFloat
end;
dm.TableDest.Post;
BStart:=PChar(dm.TableSource.GetBookmark);
if TDataSet(dm.TableSource).CompareBookmarks(Pointer(BEnd),Pointer(BStart)) = 0 then
break;
dm.TableSource.Next;
end;

Вобщем, разберешься :-)

← →
krobs © (2006-05-15 22:45) [3]

> тама есть demos. посмотри в нем.

Спасибо за ответ, но можно,пожалуйста уточнить что за demos. и где он находиться?

← →
unknown © (2006-05-15 23:04) [4]

Все гораздо проще -
uses DBGridEhImpExp; ... { Второй параметр true - копировать всю таблицу, false - выделенное } DBGridEh_DoCopyAction(DBGridEh1,True); ...

demos находится в каталоге {твой путь куда ты установил ehLib}\Demos

>Проще говоря мне нужно повторяемые в базе группы записей (в столбцах), дабы не переписывать их - копировать!

Проще говоря, для таких целей база не нужна - вполне сгодится Excel

Копирование групп ячеек столбца в буфер обмена Найти похожие ветки